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ABSTRACT 


The effect of stress and temperature on the creep behavior of an Al-2.0wt%.Li 
alloy was investigated in the temperature range from 300 to 500°C. This 
temperature interval corresponds to a solid solution of Li in Al. Experimental 
results indicate that Al-2.0wt%Li behaves as a pure metal class alloy (class II). 
This is demonstrated by several creep characteristics including the value of the 
stress exponent (n ~ 5), the shape of the creep curve, and the nature of the creep 
transient after a temperature change. However, anomalous behavior of the 
activation energy was observed. Activation energies up to 55 kcal/mole, 
decreasing to approximately 33 kcal/mole at higher temperatures, were observed 


by the temperature cycling technique. 
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I. INTRODUCTION 


Both the blacksmiths of old and today's metallurgists have long recognized 
that small changes to processing variables or to alloy compositions can create 
widely varying effects on the mechanical properties of the resulting metal. 
Metallurgists today attribute these effects on the mechanical properties to changes 
in the microstructure. Now, metallurgists must explore and exploit these effects 
to meet the demands of today's rapidly evolving materials needs. 

From Italy's Da Vinci to America's Wright brothers, aviation has always 
been at the forefront of technology. Military specifications dictate that putting 
more payload in the air is the overwhelming factor in design. Aluminum alloys 
are the predominant materials of airframe construction because of their high 
Strength-to-weight ratio when used as beam structures and aircraft skin. Criteria 
used to evaluate metals for aerospace applications begin with relative strength 
and density. However, some components must withstand necessarily high 
temperatures as well as maintain good strength characteristics. Other important 
criteria include resistance to cyclic fatigue, corrosion resistance, weldability and 
good appearance. 

Many materials have adequately met these criteria and are in wide use today. 
Factors which spur continued research in high strength, temperature resistant 
Aluminum alloys are cost of materials, as well as fabrication and lifecycle costs. 
When Li is added to Al it forms an alloy with a lower density and a higher 
modulus of elasticity than pure Al. Yet Al-Li alloys without other alloying 
elements are not widely used commercially due to poor mechanical properties. 


When other alloying elements are added to Al-Li systems, the mechanical 


properties can be improved dramatically. At ambient temperatures, the 
mechanical properties of Al-Li alloys are well known. These include factors 
such as high strength-to-weight and stiffness-to-weight ratios, and good 
toughness and cyclic fatigue characteristics. However, very little information 
exists on the high temperature behavior of the Al-Li system. Thus, limits on 
elevated temperature exposure of these alloys have yet to be determined. 
Therefore, it is the main thrust of this investigation to expand the body of data 
on an Al-2.0wt%Li alloy in terms of the stress and temperature dependence of its 
creep behavior, as well as to investigate the activation energies for creep in the 


temperature range 300 to 500°C. 


Il. BACKGROUND 


A. CREEP OF SOLID-SOLUTION ALLOYS 

This research considered the constant stress creep behavior of Al-2.0wt%Li 
in the temperature range from 300 to 500°C. The solvus temperature for this 
alloy is ~ 360°C (see Figure 1).Thus at 300 and 350°C effects may arise due to 
precipitation. From 400°C upwards, the effects of solid solution strengthening 


alone, without influence from precipitation , will be observed. 
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Figure 1. Al-Li Phase Diagram 


The creep response of solid solutions has been classified into two categories 
based on the premise that dislocation motion occurs through sequential glide and 
climb processes [Ref. 1]. 

1. Class I Solid Solutions 

The first category commonly referred to as class I or alloy class, 
exhibits dislocation glide as the rate-controlling process during deformation due 
to solute drag on the moving dislocations. Class I alloys commonly exhibit a 
stress exponent,n(=dIno/dI1n 6), of about 3, a brief primary stage of creep 
and random distribution of dislocations. The activation energy is equal to that 
for solute diffusion. 

2. Class II Solid Solutions 

The second category is called class II or pure metal class, where 
dislocation climb becomes rate-controlling. Class II alloys exhibit a stress 
exponent, n, close to 5, extensive primary creep and subgrain formation. The 


activation energy is essentially equal to that for self-diffusion. 


B. STRUCTURE OF AL-LI ALLOYS 
1. Effect of Li Addition in Al 

As an addition to Al alloys, Li offers a significant decrease in density 
and increase in modulus of elasticity. Li has a high solubility in Al (5.2%) in the 
binary Al-Li system. Greatly improved strengths result from the 6° (AI3Li 
phase) precipitation during age hardening. Also, each percent of Li added to Al 
reduces the density of the alloy by 3% and increases the modulus of elasticity by 
6%, up to 4 % Li additions. 

The role of Li increasing the modulus of elasticity of Al has been 


addressed recently in a paper by Fox and Fisher on a study of 1.33 and 2.14wt% 


Lithium additions to Al. The Li addition in Al results in an increase in the 
electron charge density between Al and Li atoms. Accordingly, this increase in 
charge density results in an increased average force of attraction between the 
atoms and thus an increased modulus of elasticity.[Ref. 2] 

2. Ordering in the Al-Li Matrix 

Radmilovic, Fox and Thomas contend that ordering exists within the 
range of the solid solution and not only in the temperature region below the 
solvus. This was based on the observation of superlattice reflections and no 
discernable 6' particles irrespective of prior solution treatment temperature or 
quench medium employed following solution treatment. The ordered alloy 
apparently decomposes into a modulated order/disorder structure by a spinodal 
mechanism with increased Li content in the ordered regions until such regions 
coarsened into discrete 6' particles.[Ref. 3] 

The increased modulus and the presence of ordering in the solid 
solution are evidence that Al and Li atoms tend to bond readily. The 
temperature dependence of such bonding has not been addressed. It has been 
shown, however, that both the modulus of elasticity and the stacking fault energy 
influence the creep behavior of materials, hence it is likely that the creep 
response of Al-Li alloys may be influenced by Li addition through these material 


parameters [Ref. 1]. 


C. THE MECHANISM OF CREEP 
1. Interaction of Dislocations and Solute Atoms 
A dislocation has a stress field associated with it. Solute atoms, because 
their sizes are either too small or too large in relation to the solvent atom size, 


are also centers of elastic strain. Consequently, the stress fields from these 


sources can interact and can mutually exert force. This is an elastic interaction 
due to misfit. 

The interaction of the solute atoms and edge dislocations leads to a 
migration of solute atoms to the dislocation where they form an atmosphere 
around it. This solute atmosphere, called the Cottrell atmosphere, has the effect 
of locking the dislocation. This makes it necessary to apply additional force to 
free the dislocation from the atmosphere.[Ref. 4] 

Li atoms are very close to the same size as Al atoms. However, even 
when the size difference is zero, a contribution to the binding energy between the 
solute and the dislocation can result due to the difference in modulus between the 
two. The solute atom behaves as an elastic heterogeneity in the dislocation strain 
field. If the solute is softer (i.e. smaller shear modulus) than the matrix, the 
energy of the strain field of the dislocation can be reduced by distortion of 
solute. This means that the energy will be negative and thus there will be an 
attraction between the solute and the matnx. For a solute that is harder than the 
matrix, there will be a force of repulsion between the two.[Ref. 4] 

At high temperatures (> 0.5 Tm), the mobility of the solute atoms will 
be much greater than that of the dislocation, with the result that they will not 
restrict the dislocation motion. In the range of temperature where solute atoms 
and dislocations are equally mobile, there are strong interactions with 
dislocations.[Ref. 4] 

The movement of dislocations will result in disordering of ordered 
regions in a partially ordered alloy. This disruption would cause an increase in 
the energy of the material and requires additional work to be done. Mechanical 


properties thus are altered when materials have an ordered structure. Fully 


ordered alloys may deform by means of the movement of superlattice 
dislocations at rather low stresses. However, the super dislocations (1.e. closely 
spaced pairs of unit dislocations bound together by an antiphase boundary) must 
move as pairs in order to maintain the ordered structure. This makes cross-slip 
and climb more difficult. Long-range order thus leads to high rates of strain- 
hardening and frequently to brittle fracture as well as high-temperature creep 
resistance.[Ref. 4] 
2. Creep Rate Dependence on Temperature 

Creep is a thermally activated process. Thus, the creep rate, min, can 
be described by an Arrhenius type of relation: 

Emin & exp ( = ) (1) 
where Qc is the activation energy for creep, R 1s the gas constant, and T is the 
absolute temperature. This has been demonstrated by several experiments.[e.g. 
Ref. 1] 

3. Creep Rate Dependence on Diffusion 
If the creep rate 1s dependent on dislocation climb or upon the motion 
of jogged screw dislocations, then the steady state creep rate, Emin, should be 
proportional to an appropriate diffusion coefficient, D: 

Emin & D (2) 
and there is ample evidence for the correlation of Emin and D. For example, the 
Steady-State creep rate stress data at various temperatures for a given metal can 
be made to virtually coincide if the creep rate is first divided by the diffusion 
coefficient for the appropriate temperature and then plotted against stress. Since 


the creep rate 1s proportional to the diffusion coefficient, it is logical that the 


activation energy for creep of pure metals should be about equal the activation 
energy for self diffusion.[Ref. 1] 
4. Creep Rate Dependence on Stress 
Sherby and Burke [Ref. 1] note that for low and intermediate stresses, 
the relationship between the creep Strain rate and stress (at constant temperature) 
can be described by the power-law relation: 

Emin @ oF (3) 
where o is the stress. If creep can occur by several different independent 
processes, the fastest of these will be rate-controlling. Thus, the mechanism of 
creep at very low stresses (range I) can be associated with the creep law: 

émin a o} (4) 
where n equals 1, since this creep process yields a more rapid creep rate than the 
process responsible for the intermediate stress (range II) where: 

Emin & o” (5) 
and where the value of the stress exponent, n, 1s greater than 1 [Ref 1]. With 
increasing stress, it is expected that a transition in creep mechanisms will occur 
as the rate of range II processes increases more rapidily with stress than the rate 
of range I processes. 

5. Class I Alloys and Their Creep Rate 

Sherby and Burke [Ref. 1: p. 341] note that creep of solid solution alloys 
between €/D values ranging typically from 102 to 10? cm-2 can be divided into 
two categories. Class I alloys are first and their strain rate is proportional to the 


cube of the modulus-normalized stress: 
: Oo 
émin = B Ds ( — ) (6) 


where €min is the strain rate, B is a physical constant, Dg is the diffusion 
coefficient for the solute, o is the true stress, E is the elastic modulus and n is 
equal to three. Dislocation glide is the mechanism for creep where the velocity 
of the dislocation motion is determined by the amount of friction that the solute 
atoms generate to oppose the glide motion. The activation energy for creep 
would be the activation energy for diffusion of the Li solute. 

6. Class II Alloys and Their Creep Rate 

Class II alloys are the second classification and their strain rate, €min, 1S 


proportional to the cube of the stacking fault energy, (y)3, to the modulus- 


normalized stress raised to the fifth power, ( ae and to the self-diffusion 


coefficient, Dj: 

émin = A (3 (=) DI (7) 
where A is a material constant, R is the gas constant, and n is equal to five. The 
mechanism of creep in this class is dislocation climb, the rate of which is also 
affected by subgrain size. Class II alloys exhibit a distinct primary creep stage, 
similar to pure metals, and the activation energy for creep can be anticipated to 
be the same as the activation energy for self-diffusion. On the basis of increased 
modulus alone, one could anticipate that the strain rate of the alloy would be 


slower than that of Al for either class I or class II alloys. 


D. OTHER EFFECTS ON THE ACTIVATION ENERGY 
The activation energy for a given metal can be calculated if the creep rate is 


known at two temperatures: 


Qc =-R (PEE YI gg (8) 
Nem 


T 


Earlier, it was noted that the activation energy for creep was about equal to 
the activation energy for self-diffusion. If, however, the modulus were to be 
Strongly temperature dependent, the activation energy for creep would not be 
exactly equal to the activation energy for self-diffusion. Similarily, the stacking 
fault energy may vary with temperature. The influence of such temperature 


dependent factors can be shown with the aid of equations 7 and 8: 


l l 


Alog &€ dInD dlnE dl 
Qc =-R(** )igeg= -R Sloe +R loge -3R Sloe (9) 
a as oT 7 


The term -R dInD/d(1/T) is simply equal to the activation energy for self- 


diffusion. So, equation 9 becomes: 


Qc = Qa + SRE 3R oY (10). 
T oF 


If E and ydo not change much with temperature, then Q¢ will effectively 
equal Qq. However, if E and y are strongly temperature dependent then Qc 
would differ from Qq. 

This, in fact was found to be the case, as experimentally determined values of 


Qc were observed to be greater than known values of Qq for pure Al in the 


temperature range of 300 to 470°C. 


E. PREVIOUS RESEARCH AT NPS 

Anomously high activation energies were reported by Taylor [Ref. 5] in his 
study of Al-O.Swt%Li and Al-1.0wt%Li, as well as by Ellison [Ref. 6] in his 
study of Al-2.0wt%Li. These results were attributed to the alloy's temperature 
dependence of the modulus and the stacking fault energy relative to pure Al. 
These results represent the initial point where this study of the creep behavior 


and of the activation energy for Al-2.0wt%Li commences. 
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II. EXPERIMENTAL PROCEDURE 


A. CASTING AND SECTIONING 

A Al-2.0wt%Li casting, number NPGS13 and manufactured utilizing 99.99 
percent pure Aluminum alloyed with 99.90 percent pure Lithium, was received 
from the Naval Surface Weapons Center (NSWC) in White Oak, Maryland. The 
casting was in the form of a tapered cylindrical ingot 200 mm (8.0 in) in length 
and approximately 76 mm (3.0 in) in diameter.The casting was sectioned into 
billets for subsequent solution treatment and processing. The traverse sections 


were 25 mm (1.0 in) thick and 76 mm (3.0 in) in diameter. 


B. THERMOMECHANICAL PROCESSING 

Solution treatment was conducted at 540°C for 12 hours with a subsequent 
water quench to room temperature. A Lindburg Type B-6 heavy duty furnace 
was used for homogenization. For rolling, the homogenized billet was placed in 
a Blue M furnace, Model 8655f-3, for 5 minutes reheating at temperatures 
between 400°C and 450°C prior to each rolling pass. A massive steel plate was 
located on the floor of the furnace to act as a heat capacitor in order to maintain 
a stable annealing temperature. Care was taken to commence the 5 minute anneal 
“Clock” once the temperature of the billet was above 400°C.The last rolling pass 
was followed by cold water quenching to room temperature. The TMP is 


schematically represented in Figure 2. 


1] 


solution Creep Tests 
Treatnent 





Figure 2. TMP for Samples 


Billets were rolled in a Fenn Laboratory Rolling Mill using the reduction 
scheme shown in Table 1. By turning the screw down wheels the number of 
turns indicated (second column) to the setting shown (third column), then the 
mill gap indicated (fourth column) would result in the amount of strain per pass 
shown (last column). 

The resulting rolled strip, nominally 2 mm (0.08 in) in thickness, was 
machined to dimensions for tensile testing, see Figure 3. The rolled strip was 
first cut by band saw into rectangular blanks and machined into reduced gauge 
section, sheet-type, tensile specimens with the long axis parallel to the rolling 
direction. A special holding device was fabricated to secure the samples during 
machining due to the extreme softness and ductility of the material. Five 
specimens were machined at one time. The finished samples were examined for 


defects and all machining burrs were carefully removed with a jeweler's file. 


WZ 


Prior to testing, all samples received a heat treatment of 15 minutes at 500°C to 


provide a fully annealed microstructure. 


Table 1. ROLLING SCHEDULE 


ROLL CHANGE |MILL SETTING MILL GAP} % STRAIN 


+(12 + 4) 
-(2 + 0) 
-(1+2) 
5 Go) 
-( 1+ 2) 


-(1+2) 
-( 1+ 2) 
-( 1 + 2) 
-(0 + 6) 
-(0+ 5) 
-(0+ 4) 
-(0+ 3) 
-(0+ 1.3) 





C CONSTANT EXTENSION RATE TESTS 
Constant extension rate tensile tests were performed on an Instron TM-S-L 


Table Model Universal Testing Machine with a 1,000-pound calibrated load cell. 
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The tensile testing temperature was maintained by a Marshall tubular furnace in 


combination with a Lindburg Model 59344 temperature controller. 
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Figure 3. Tensile Test Specimen Drawing 


Special self-aligning grips were designed to hold the tensile test specimens 
(Figure 4)[Ref. 5]. These grips were fabricated of Inconel 625 alloy by Collins 
Instrument Company, Freeport, Texas, using a wire electro-discharge machining 
(EMD) process for tolerance control. 

Unique features of these grips include a tapered shank leading to a button 
head which aligns itself by transmitting the load to the grips via the taper. The 
recessed face of the grips compressively hold the specimen, applying the load to 
the entire tab, not just the area above the bolt hole. 

Once temperature was attained, the furnace was de-energized, lowered, and 


the grip assembly with the sample installed was inserted into the grip holder 
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assembly. The furnace was raised, re-energized and allowed again to stabilize 
for approximately 45 minutes. While the sample and grips were equilibrating, 
the slack was removed from the load train by a small pre-load in order to 
prevent slippage in the grips. Since the entire gauge/grip/heater assembly is 
mounted to the bottom of the crosshead and moves down with the crosshead as 
the test progresses, the original temperature gradient can be maintained for any 


extension likely to be encountered with this alloy. 


r0.1238 Slot for clevis pin, 
pin must be snug fitting 
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Figure 4. Self-Aligning Grip Assembly 


D CONSTANT STRESS TESTS 
Constant stress tensile creep tests were conducted on a pair of test machines 


designed at NPS and were patterned after a machine built by Barrett and later 


Is 


modified by Matlock at Stanford University [Ref 6]. 


The constant stress is 


obtained by means of an Andradre-Chalmers lever arm. The contoured lever 


rotates as the specimen elongates (Figure 5). 
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Figure 5. Diagram of Constant Stress Machine 


This rotation decreases the moment arm of the applied load as the cross- 
sectional area of the specimen decreases with elongation, thus maintaining a 
constant true stress. The design of the arm is based on the assumption that the 


load train is rigid and the linkage displacement is taken up uniformly. The 
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machine is capable of transmitting loads between 1.5 and 222.5 Newtons (0.3 to 
50 lbs) and at strains as high as 300 percent. 

The contour of the lever arm was designed using Autocad in conjunction 
with the highly accurate graphical technique developed by Coghlan[Ref. 8]. The 
design used an effective gauge length of 13 mm (0.5 in) with an initial lever arm 
ratio of 10:1. The lever arm was constructed of 6.4 mm (0.25 in) thick 2024-T6 
Aluminum and is attached to a 9.53 mm (0.375 in) diameter shaft rotating on a 
set of precision bearings. An adjustable counterbalance was affixed to the 
opposite end of the shaft, balancing the lever arm. This counterbalance in 
conjunction with another weight attached to the shaft to compensate for the 
weight of the load train, ensured that the only load sensed by the sample was that 
of the applied load. 

A flexible 0.55 mm (0.02 in) thick steel strap follows the lever arm contour 
and hangs along the vertical tangent to the lever. A second flexible strap hangs 
tangent to a two inch radius disc centered at the fulcrum point which transmits 
the tensile load to the sample via the load train. The entire linkage was 
calibrated using a 50 Ilbf capacity interface load cell installed in the load train. 
The maximum stress variation through 300 percent elongation was 1.4 percent 
[Ref. 5]. 

Sample elongation was measured using a Schaevitz linear variable 
differential transformer (LVDT) with a 1 inch displacement. The core of the 
LVDT was attached to the upper specimen linkage. The 2.866 mv/v signal 
output from the LVDT is conditioned by a Schaevitz Model ATA 101 analog 


transducer amplifier. The amplifier voltage was measured by a Hewlett-Packard 
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(HP) Model 3497A Data Acquistion Unit controlled by an HP Model 9826 
computer. 

Marshall tubular furnaces were used for temperature control in conjunction 
with Eurotherm Model 808 digital temperature controllers. The temperature 
gradient in the furnaces was controlled and monitored similarly as with the 
Instron testing. Preheat and sample loading procedures were also similar. 

Prior to the temperature stabilizing, the creep test program was started. The 
LVDT was zeroed (as determined with a digital multi-meter) in parallel with the 
amplifier (later, this step would be eliminated by a modification in the creep data 
acquisition program which zeroed the readings artificially). A precalculated 
weight in a plastic bag was carefully suspended from the lever arm by the 
flexible strap, and each test was allowed to continue to failure. 

1. Features of the Software for the Constant Stress Tests 

The software designed to run the creep tests was written in HP Basic 2.0 
and featured a user friendly, menu-driven interface, see Appendix G. The 
software was designed to control two creep machines running simultaneously, 
and would plot and display on a video monitor the real time engineering strain vs 
time graphs for simultaneous tests. The algorithm was written to sample 5000 
voltage and time data pairs for each test and then convert the voltage to 
engineering strain using | volt per 20% strain. Once the test was completed the 
menu gave the user the choice of plotting either true/engineering strain vs time 
graphs on the HP Model 7275B plotter, or of saving the accumulated data to one 
of three floppy disc drives. If desired, the program also prints a table with the 
reading number, the percent strain and the time of the reading on the HP Think 


Jet printer. 
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E. TEMPERATURE CYCLING TESTS 

The temperature cycling tests were similar to the creep tests with the 
exception that the temperature was raised 109°C above the initial test 
temperatures and after from four to eight hours, and was subsequently returned 
to the initial test temperature. This procedure was repeated until failure for each 
sample. The load and cycle times were such that each test would cycle several 
times Over a two to four day period. 

Later receipt of Eurotherm Model 808 programmable digital temperature 
controllers allowed precise control of temperature ramp, level, and dwell time. 
The PID features of these controllers also were adjusted to eliminate temperature 


over-shoot. 


F. DATA REDUCTION 

For the Instron tests, the raw data was obtained manually from the Instron 
Strip chart recorder. The data from the plastic region were converted to true 
Stress strain data by a program written in Basic for the NPS Mainframe 
computer (see Appendix G). The program was written to calculate a correction 
factor to account for mechanical slippage while testing. These data points were 
plotted using the Easyplot graphics routine on the NPS mainframe computer. 
The peak true stress from the above data was paired with the known applied 
Strain rate to determine a single data point. 

For the creep tests, the data was stored to 5 1/4 in floppy disc and output on 
the plotter. The creep rate in the secondary region was graphically determined 
from the true strain vs time creep curve and was paired with the known applied 


stress to constitute a single data point. 
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The temperature cycling test data was reduced in a similar manner as the 
creep tests. Additionally, the strain rate vs true strain graphs were plotted using 
a computer program written in HP Basic 2.0. This data reduction program was 
designed to be user-friendly and is menu-driven (see Appendix G). The menu 
choices included several types of graphs, true strain tables, strain rate tables, and 
calculation of activation energy. An example of the tables produced is in 
Appendix F. 

The activation energies for the alloy were calculated from temperature 
cycling tests by graphical differentiation of the creep curve and were compared 


to the values of the activation energy for pure Al. 


G. OPTICAL MICROSCOPY 

Samples were mounted in Sample-Quik, manually ground to 600 grit, and 
polished with 3um diamond paste. The samples were then electro-polished in 
Keller's reagent at 14 volts for 12 seconds, and anodized in Baker's solution at 
14 volts for 60 seconds. The temperature of both processes was between -20 and 
-249C, Optical micrographs were taken at various magnifications on a Zeiss 


optical microscope under plane polarized light. 
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IV. RESULTS AND DISCUSSION 


A. MICROSCOPY 


1 
} 
1 


Optical microscopy was conducted by Ellison [Ref. 6] on as-rolled samples 
and on samples annealed at 500°C prior to creep testing. He reports that the as- 
rolled material exhibited grains somewhat elongated in the direction of rolling, 
consistent with the processes of fabrication. Subsequent annealing results in a 
microstructure that has large, equiaxed grains, which demonstrated that the 
anneal at SOO°C for 15 minutes was sufficient to remove the effects of the rolling 
[Ref. 6]. Figure 6, presents a micrograph of the grip section from a sample 


deformed at 300°C. 





Figure 6. Optical Micrograph of 300°C Sample: 


Grip Section at 50x 
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It shows an equiaxed grain structure. Comparison with previous microscopy 
[Ref. 6] reveals the same microstructure and suggests little precipitation, either in 


grain interiors or upon grain boundaries, as a result of heating to 300°C. 


B. CONSTANT EXTENSION RATE TESTS 

Figure 7 summarizes typical results of Instron tests of the Al-2.0%Li alloy 
conducted at 300°C. Note that the material tested at the faster strain rate 
achieves a higher yield strength, rate of strain hardening and maximum Stress 
than that at the slower rate. Under these conditions, strain hardening 
predominates the stress strain curve and there 1s no well-developed, steady-state 
behavior. 

Figure 8 summarizes the results of Instron tests conducted at 450°C, and 
comparison to Figure 7 illustrates the effect of temperature. Note again that the 
material tested at the faster stain rate achieves a higher yield strength and 
maximum stress than that at the slower rate. However, under these conditions, 
softening of the material clearly predominates the stress strain curve. 
Deformation appears to occur at a nearly constant stress for strains above 10%, 


therefore, suggesting an approximate steady-state behavior of the alloy. 


C. CONSTANT STRESS TESTS 

In this portion of the research, specimens were tested at different stresses and 
secondary creep rates were calculated by graphical differentiation of the creep 
curves. Each specimen was tested to failure at a constant stress. Figure 9, in 
which true strain, €, is plotted against time, shows a typical creep curve obtained 


at a temperature of 300 °C. 
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Figure 7. Stress Strain Curves at 300°C for Various Strain Rates 


25 





i 
culoalet| oceafesseeenedeneenedeennnnnbn LL 
li dal r 
eal(eales 
aealisaice 4 
mOoePre VA 1 © 
| tt eae nae n eh anne cen eee cece ete cone wacse soc forse S 
SII P 
€a) SoS 
pen) | ed | med ng 8, a 
LEE tye al igttecuchseeces opsay lee eee gnc ee a 
PQ} 4 + Hh 
} a. 
rile J a 
i YS! 2 
| neva oon bea ete pees eee ane Fi ae tee ee 
16 v i = 
3 nee 
— 
ime Mages pee Sent, oe pee gece pgp mte dae a a ok | ~<{ 
| = 
: n 
f Y: - ite 
ee ee er ee ee ee ee ee Cees Ce ey ol) ore Oe ceo Se oo Cee See eeeeerne oa Soon oollhegoos Oo vr 
« = 
i 0 : aw 
—E 
“8 
nn ee ee Bars clloc ue = 
j ): 
3 : 
sag w basa an $ eeu hina = Maw bode eee ee ee | pipe RS 
“itl af 
ne ee er ere Cr SRR ins oes coed ose n QV... ---- 4... O 
at 
iN . 
(Q 
tO 2 
= es 


OQO0Z4 OQO0O9 OOOG acon OOOL O00ce 0001 0 
(Sd) SSAULS ANWL 


Figure 8. Stress Strain Curves at 450°C for Various Strain Rates 
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Figure 9. Creep Curve at 500°C for a Stress of 2.65 MPa: 


— min - 1.50 x 10-4 sec: i 
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As seen in the figure, the creep curve exhibits three main features: a 
decelerating primary stage up to ~ 50%, a well-defined secondary stage and an 
accelerating tertiary stage prior to sample failure. The shape of the creep curve 
is, therefore, similar to those reported for pure Al by Sherby.[Ref. 1] 

The effect of the applied stress at a higher temperature is demonstrated by 
comparing Figure 9, tested at 500°C and 2.65 MPa, to Figure 10, tested at 
SO0°C and 5.48 MPa (note that the creep results are represented on different 
time axes.). For a greater applied stress, the alloy sustains a higher creep rate. 
Also, the primary stage is less extensive at SOO°9C when compared to that at 
300°C. For all tests in this investigation, creep rates increased as the applied 
load increased and creep rates increased as the temperature increased. 

Figure 11 shows a typical creep rate, €, versus true Strain, €, curve 
corresponding to the strain-time curve shown in Figure 9 above. The creep rate 
curve exhibits three main features: a distinct parabolic shape with the primary 
creep rate decreasing slowly, a clear inflection point at € ~ 0.58 where the creep 
rate goes through a minimum and a pronounced increase in the tertiary creep 
rate prior to failure. The shape of the creep rate curve 1s, therefore, similar to 
those reported by Smith [Ref. 9]. The jagged appearance of the curve is due to 
the effects of quantization errors in the acquisition equipment. The analog-to- 
digital (a/d) converter must represent a continuous-time signal in a discrete 
manner and may not distinguish close, yet different, values of voltages sent it 
from the LVDT and its amplifier. The threshold of each level must be enough to 
cause the a/d converter to ascend to the next discrete level. Additional errors are 
introduced since the voltage values are truncated when each value is converted to 


binary code for mass storage on the floppy disc. 
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Figure 10. Creep Curve at 500°C for a Stress of 5.48 MPa: 


Emin = 4.83 x 10-3 sec: 1 
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Creep Rate Curve at 500°C for a Stress of 2.65 MPa: 
€min = 1.43 x 10-4 sec-1 


Figure lI. 


D. TEMPERATURE CYCLING TESTS 

In this procedure, several identical specimens were crept at a constant Stress, 
o, while the initial temperature,T], is rapidly increased. Within 10 minutes of 
the temperature increase, sufficient strain had accumulated to ascertain the 
presence of the new creep rate. This new temperature level, T2, was held for 
several hours. Finally, the increased temperature is rapidly decreased to its 
original value of Tj and the cycling of the temperature in this manner is 
continued through steady-state and up until failure. A typical example for the 
application of this procedure at 350°C is shown in Figure 12, in which the true 
strain, €, is plotted as a function of time. Examination of these data reveals that 
there is a similarity between temperature cycling creep curves and isothermal 
creep curves and that the duration of the temperature excursion from Tj to T?2 is 
nominal when compared to the overall duration of the test. 

Figure 13 reveals a typical creep rate versus creep strain curve for the 
temperature cycling tests in which creep rate, €, is plotted as a function of creep 
Strain, €. Examination of the figure reveals three important points. First, the 
creep rate, after the temperature increase from 350 to 360°C, increases and 
quickly reaches the new value. Second, in the minimum creep rate region, the 
creep rate after the temperature change from 350 to 360°C reaches a value that 
essentially agrees with the original steady-state rate established before the 
temperature increase to 360°C. Third, the creep transient after a temperature 
change, is identical to that of pure Al, as reported previously by Lytton et 


al.[Ref. 10] 
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Figure 12. Creep Curve at 350-360°C for a Stress of 6.38 MPa: 


€y = 1.28 x 10-6 sec-l & &2 = 6.55 x 10-7 sec: 1 
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Figure 13. Creep Rate Curve at 350-360°C for a Stress of 6.38 
MPa: é = 1.28 x 10-6 sec-l & & = 6.55 x 10-7 sec-1 


E. STRESS DEPENDENCE OF THE STRAIN RATE 

The data of Table 2 summarize the results of the uninterrupted tests to 
failure and may be utilized to determine the stress and temperature dependence 
of the strain rate and thus facilitate determination of the underlying mechanisms 
of deformation. Sherby and Burke [Ref. 1] note that, for an intermediate stress 
range, the relationship between strain rate and stress at constant temperature can 
be described by the power-law relationship: 

Emin = Ko" (4) 
values of n for pure metals (Al) are usually equal to 5.The experimental values 
of log € obtained in this research were plotted versus log o for each test 
temperature. The results are shown in Figure 14. The stress exponent for Al- 
2.0%Li, as calculated from the slopes of the isothermal curves, shows 
dependence on temperature such that n is 6.7 at 300°C and 6.0 at 350°C. 
However, at 400, 450 and 500°C, n is relatively constant with values of 5.0, 4.8 
and 4.9, respectively, and appears to be independent of temperature in this range. 
These n values, calculated from the data by linear regression, are compiled in 
Table 3. 

For comparison purposes, data from Park et al [Ref. 11], who conducted 
creep tests of Al-2.l1wt%Li in the temperature range of 500 to 560°C and 
utilizing double shear specimens, are plotted on Figure 14. Note that at 500°C 
the two data sets differ by a factor of 2 which is considered excellent agreement 
given the different test methods. The stress exponent for Al-2.1%Li, as 
estimated from the slope of the plot, is essentially independent of temperature 


and is close to a value of 4.6. The stress exponent from this investigation at 
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Figure 14. Log-Log Curves of Strain Rate Vs. True Stress 


36 


Table 3. STRESS EXPONENT 





500°C is 4.9 and also compares well with the value reported in the work of Park 
et al.[Ref. 11). 

From the n values obtained in this investigation, it 1s surmised that the 
mechanisms of creep in the temperature range of 400 to 500°C are similar to 
that of pure Al, which deforms by glide and climb of dislocations, with 


diffusion-controlled climb determining the overall rate of straining. 


F. MICROSTRUCTURAL EVOLUTION DURING CREEP 

Optical microscopy was conducted on fractured samples from the 300°C and 
the 500°C creep tests. Figure 15(a), a photo-micrograph of the gauge section of 
a coupon tested at 300°C, was taken at a low magnification of 50x. It illustrates 
the elongated grains due to creep in the direction of straining. Sub-structures 
have formed within the grains, as evidenced by the mottled contrast. This is in 
accordance with class II deformation behavior, and can be distinguished more 
readily in Figure 15(b), a micrograph of the same region, but at a magnification 


of 200x. The sub grains are well delineated in the grain to the right of center of 


ay 





Figure 15(a). Optical Micrograph of 300°C Sample: 


Gauge Section at 50x 
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Figure 15(b). Optical Mierograph of 300°C Sample: 


Gauge Section at 200x 
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the field of view. Intergranular precipitation is also evident and likely consists 
of 5' phase on the prior boundaries of the solid solution. 

Figure 16 shows a micrograph of the grip section of a sample crept at 500°C 
and was obtained at 50x. Larger grains due to grain growth at the higher 
temperature are evident. Figure 17 is a micrograph of this 500°C sample's 
gauge section, also at a magnification of 50x. Grain growth due to temperature 
and strain is evident. A coarser subgrain structure (when compared to the 
sample deformed at 300°C) is also evident in this micrograph and appears as 


irregular grain boundaries. 


G. ACTIVATION ENERGY FOR CREEP 

The data of Table 4 summarize the results of the temperature cycling tests 
and may be utilized to determine the stress and temperature dependence of the 
activation energy for creep, Qc. Assuming creep 1s thermally activated and 
follows an Arrhenius temperature dependence at constant stress, a value for Qc 
can be obtained from equation 8. Determination of Qc was accomplished by the 
previously described technique of evaluating the steady-state creep rate 
preceeding and following a small, abrupt change in temperature. Temperature 
differences of 10°C were used. The creep rates were determined by graphical 
differentiation of the strain versus time curves. All activation energies reported 
in this paper were plotted in terms of the mean test temperature [Ref. 10] defined 


as: 
cos 1 


1 
T 2°77 T>? (12). 


The results are summarized graphically in Figure 18. Values of Qc at 300 


and 350°C are 47.4 and 52.3 kcal/mole, respectively. The activation energy, Qe, 


By 





Figure 16. Optical Micrograph of 500°C Sample: 


Grip Section at 50x 





Figure 17. Optical Micrograph of 500°C Sample: 


Gauge Section at 50x 
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Table 4. SUMMARY OF AI-2.0%Li TEMPERATURE CYCLING 
RESULTS 


29| 40.10 | aos | sasxt0|222x106| 575 

30 | 4oos10 | aos | 398x107 |frzix10-7| 553 
-34| 45040 | 455 | ssix106|soox106| 549 
-36| soosio | sos isixios|isox16| 331 









55.1 





reaches its maximum value of 56.4 kcal/mole at 400°C and then drops rapidly at 
470 and 500°C to values of 40.2 and 33.1 kcal/mole, respectively. Note that Qc 
for pure Al in the temperature range 300 to SO0°C (573 to 773K) is constant at 
approximately 35.5 kcal/mole [Ref. 10]. 

Therefore, although the Al-2.0%Li alloy exhibits a similar stress dependence 
and formation of subgrain structures as observed in pure Al, the values of Q¢ are 
appreciably higher. Table 5 is a compilation of activation energy results for this 
alloy. The data were obtained by three different computational methods. The 
first method used graphical differentiation directly applied to the individual 
creep curves. The second method involved use of linear regression applied to 
the creep rate versus creep strain curves. The third method calculated Qc from 
the difference between the isothermal log € vs. log o plots for data obtained at 
constant stress. All methods involved similar values of strain rate which were 


then employed with equation 8 for determination of Qc. The values from the 
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Figure 18. Al-2.0%Li Activation Energy Curve Compared to Pure 
Al 
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direct analysis of the creep curves and from the creep rate curves (i.e. from the 
differentiated creep curves) yield close agreement, as expected. Figure 19 gives 
further insight into the behavior of the activation energy for the Al-Li system. 
This figure graphically compares Qc for Al with 0.5, 1.0, and 2.0wt% Li 
additions. The data for the 0.5 and 1.0% Li additions are taken from the NPS 
study by Taylor [Ref. 5]. As Li content increases, the observed activation energy 
becomes progressively higher within the temperature interval 600 to 725K. The 
peak activation energy values are in order of Li addition: Qc for Al-2.0%Li 
peaks at 56.4 kcal/mole at 700K; Qc for Al-1.0%L1i peaks at 54 kcal/mole and 
~700K; and Qc for Al-0.5%Li peaks at 51 kcal/mole at 700K to 750K. 


Table 5. SUMMARY OF AI-2.0%Li ACTIVATION ENERGY 
RESULTS IN KCAL/MOLE 


400-410 | 404.94 19. 
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* Note: these values were not obtained due to limits in the data acquisition 
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Figure 19. 


1.0, and 2.0% Li Additions 
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H. NORMALIZED RESULTS 

Further insight into the behavior of the Al-2.0%Li can be obtained by re- 
plotting the data as €/D vs. 6/E on double logarithmic axes, as shown in Figure 
20. Diffusion and modulus data were those for Al because data for Al-2.0%L1 
was unavailable. The data appears similar to the Al data as modelled by the Wu- 
Sherby relationship [Ref. 12]: 


K Deff, . | 6 
E min= aN b2 ( sinh ar) (11) 


where K =2 x 10!2, b = Burger's vector (2.8 x 10-10m), a = 2600 and n = 5S. 
The effective diffusion coefficient, Deff, 1s essentially the lattice diffusion 
coefficient, Dj], modified to account for the enhancement of diffusion resulting 
from pipe diffusion. The stress dependence of the data is in close agreement 
with that of equation 11. However two observations can be made: as temperature 
decreases, the degree of alloy strengthening relative to Al increases; and, as the 
strain rate at a specific temperature decreases, the degree of alloy strengthening 
increases. This suggests that the temperature dependence of the normalizing 
values for the alloy is different from the temperature dependence of those values 
for the pure metal. 

Stacking fault energy and modulus are a function of temperature. If these 
functions for the alloy are the same as for the pure metal, then one would expect 
little or no variation in the normalized data for the two cases. However, as noted 
earlier, the activation energy for the alloy from 300 to 450°C is appreciably 
greater than for the pure metal. This may be an indication that the temperature 
dependence of stacking fault energy and modulus is also different for the alloy, 


leading to the apparent scatter of data in the normalized presentation. 
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Figure 20. AI-2.0%Li € /D vs. o/E as Compared to Pure Al 
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I. INTERPRETATION OF RESULTS 

First, the stress dependence of creep for the alloy is the same as that for pure Al. 
Second, the observation of sub-grain formation following the extensive primary 
stages of creep is also identical to the creep mechanisms of the pure metal. — 
Third, the activation energy clearly exhibits a notably different temperature 
dependence than does the activation energy for pure Al. The activation energy 
may be considered a summation of self-diffusion, stacking fault energy and 
modulus components (equation 10). As noted earlier in Chapter II, the addition 
of Li to Al has the effect of increasing the modulus due to the effect of Li on 
bonding in the ordered structure. If the alloy were to undergo an order/disorder 
transition, e.g. in the temperature range between 400°C and 5009C, this could 
result in a more rapid decrease in modulus than for the pure metal and could 
account for the values of Qc being greater than those for self-diffusion in this 
temperature regime. 

While the creep characteristics of Al-2.0%Li resemble those of Al, there is 
Strengthening due to the Li addition and the magnitude of the strengthening 
increases as temperature decreases. Possible factors to account for this are listed 
below. 

1. Activation Energy for Diffusion 

First, there may be a direct effect on the diffusion activation energy, 
that is, the rate at which atoms jump into and exchange with vacancies in the 
alloy. The determined activation energy for Al2® diffusion in Al is 34 kcal/mole 
[Ref. 13]. However, most of the values for the activation energy for impurity 
diffusion in Al are found in the range of 28 to 32 kcal/mole [Ref. 13]. In 8090 
and 8091 the diffusivity of Li at SO0°C is 2.5 x 10-9 cm2/sec, while that of Al is 
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Figure 21. Al-2.0%Li Log € vs. Log o as Compared to Pure AI: 
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3.9 x 10-10 cm2/sec [Ref. 14]. These data suggest that the diffusion activation 
energy for Li in Al is not appreciably different at this temperature. 

According to equation 7, the higher activation energy becomes, then the 
slower € becomes. The present creep data on Al-2.0%Li indicate that Qc for the 
alloy is significantly higher than Qc for the pure metal from 300 to 450°C (47.4 
to 54.9 kcal/mole) and then approaches that for Al from 470 to 500°C (40.4 to 
33.1 kcal/mole). This explains, in part, why the creep rate of Al-2.0%L1i at 
constant stress and the same homologous temperature is slower than that of the 
metal. 

2. Modulus of Elasticity 

In a random solid solution, there is little effect on bonding within the 
range of the solid solution. Most solid solutions do not show a strong influence 
on modulus of elasticity with alloy content, since the modulus reflects the way in 
which the average pair of atoms bond. If, on the other hand, there is an effect 
directly on the bonding between atoms, as could be reflected in an ordering 
reaction, causing an increased concentration of Li in the ordered region, an 
appreciable effect on the modulus of elasticity may be seen. 

By equation 7, € is proportional to the modulus-compensated stress, 
raised to the fifth power, (o/E)9. It is known that the room temperature 
modulus of elasticity for the alloy is higher than that for pure Al. Each wt.pct. 
of Li added to Al increases the modulus by 6%, and at room temperature the 
alloy's modulus of elasticity is reported to be 78.5 GPa [Ref. 15]. By 
considering the increase in modulus, as a result of the presence of the 2.0% Li in 
the alloy, then for constant stress, the € of Al-2.0%Li would be slower than that 
of Al. 
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It is also known that for any pure metal or simple alloy that the 
modulus of elasticity, overall, decreases with temperature. It is postulated, based 
on the work of Fox and Fisher[Ref. 2] and on the work of Radmilovic et al [Ref. 
3], that within the range of the solid solution, there is a tendency of the Li to 
form an ordered structure. Thus, the modulus of elasticity may exhibit a more 
rapid decrease with increasing temperature than does the modulus of pure Al at 
temperatures below, but near, the ordering temperature (expected to be ~700K 
based on the data of this research). 

If it is assumed that this apparent increase in activation energy 1S 
associated with the modulus of elasticity alone, then it is postulated that the elastic 
modulus as a function of temperature for the alloy, might appear as shown in 
Figure 22. On this figure, the data for the modulus of pure Al is shown by the 
solid line. The data for the modulus of the alloy is available at room 
temperature (300K) and is 78.5 GPa [Ref. 15]. The modulus of the alloy at the 
melting point was calculated using the following relationship [Ref. 2]: 

E = Kué2 (12) 
where K is a physical constant, 1 1s the average mass of the alloy and 6 is the 
Debye temperature. The temperature at the melting point of the alloy is 901K 
and the calculated modulus of elasticity is 37 GPa. The observed effect upon the 
activation energy would arise if the alloy's modulus were to decrease with 
temperature as shown by the dashed line. In the temperature interval of 600 to 
720K, the alloy has a steeper, more negative slope as a result of disorder through 
heating, or conversely, ordering upon cooling. The slope associated with the 


triangle represents a variation of modulus with temperature sufficient to account 
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Figure 22. Proposed Modulus of Elasticity as a Function of 
Temperature 
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for an increase in the creep activation energy from a value of 34 kcal/mole 
(associated with diffusion only), to a value of 55 kcal/mole (as observed 
experimentally). This slope was calculated using equation 10. Without using the 
Debye temperature, the proposed modulus of the alloy 1s expected to decrease to 
values below the modulus of pure Al because the melting temperature of the 
alloy is less than for the metal. 

3. Stacking Fault Energy 

It was shown in Chapter II that under the condition of climb control, 
the creep rate is described by equation 7 and that the creep rate is proportional to 
the cube of the stacking fault energy, (y)3. This suggests that if the y of the alloy 
is lower than that of Al then, at constant stress, the creep rate will be slower than 
that of Al. 

The ordering reaction could also have an influence on the stacking fault 
energy. In the case of pure Al, the best evidence is that, essentially, there is no 
effect of temperature on stacking fault energy. The effect of Li upon the 
stacking fault energy of Al is not known It is acknowledged that in the search 
for accurate physical models, the stacking fault energy is a difficult quantity to 


measure, and there are no data in the literature that are widely accepted. 
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V. CONCLUSIONS 


The following conclusions can be drawn concerning the behavior and 
characteristics of the binary alloy Al-2.0%Li: 

1. Al-2.0%Li exhibits a creep response consisting of a pronounced primary, 
a secondary, and a tertiary phase. This characteristic curve shape is similar to 
that for pure Al and demonstrates that the steady-state creep behavior of the class 
II Al-2.0%Li alloy (metal class) is controlled by some form of dislocation climb. 

2. Considering the stress dependence of each corresponding strain rate, the 
stress exponent, n, varies from ~6.7 at 300°C to ~4.9 at 500°C, and is similar to 
that reported for Al (n ~ 5). 

3. Al-2.0%Li data at 500°C correspond to within a factor of 2 to data 
reported by Park et al for a similar alloy using double shear creep testing. 

4. Activation energy obtained for Al-2.0%Li from isothermal creep and 
from temperature cycling testing indicates an anomously high activation energy 
from 300°C to 450°C. Activation energy for creep reaches a maximum value of 
55 kcal/mole, a difference of about 20kcal/mole higher than that for Al at a 
temperature of 400°C. This may result from the temperature-dependence of 
modulus or stacking fault energy or through additional processes such as 
ordering of the Li in the solid solution. 

5. For the same homologous temperature the creep strength of Al-2.0%Li is 
higher than that of Al; a possible decrease in the stacking fault energy combined 
with a measured increase in the activation energy for creep in Al with the 


addition of Li may responsible for this finding. 


21) 


VI. RECOMENDATIONS 


. Investigate alternative methods to assess the order/disorder reaction. 
. Determine modulus as a function of temperature using ultrasonic 
vibration methods. 

. Investigate microstructure with Transmission Electron Microscopy 
(TEM). 


. Investigate the effects of various elements in an Al-Li-X. 
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APPENDIX A. STRESS STRAIN CURVES 
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Figure 22. Stress Strain Curves at 350°C for Various Strain Rates 
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Figure 23. Stress Strain Curves at 400°C for Various Strain Rates 
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Figure 24. Stress Strain Curves at 500°C for Various Strain Rates 
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APPENDIX B. CREEP CURVES 
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Figure 25. Creep Curve at 300°C for a Stress of 21.2 MPa: 
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Figure 26. Creep Curve at 300°C for a Stress of 19.0 MPa: 
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Figure 27. Creep Curve at 300°C for a Stress of 13.0 MPa: 
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Figure 28. Creep Curve at 350°C for a Stress of 21.2 MPa: 
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Figure 29. Creep Curve at 350°C for a Stress of 12.9 MPa: 
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Figure 30. Creep Curve at 350°C for a Stress of 7.00 MPa: 
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Figure 31. Creep Curve at 400°C for a Stress of 7.10 MPa: 
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Figure 32. Creep Curve at 400°C for a Stress of 5.27 MPa: 
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Figure 33. Creep Curve at 450°C for a Stress of 2.35 MPa: 
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Figure 34. Creep Curve at 500°C for a Stress of 3.02 MPa: 
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Figure 35. Creep Curve at 500°C for a Stress of 2.65 MPa: 


Emin = 1.49 x 10-4 sec-l (Arrested Test) 
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Figure 36. Creep Curve at 500°C for a Stress of 2.25 MPa: 
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Figure 37. Creep Curve at 500°C for a Stress of 1.84 MPa: 
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Figure 38. Creep Curve at 500°C for a Stress of 1.63 MPa: 


Emin = 6.00 x 10-® sec-1 
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APPENDIX C. TEMPERATURE CYCLING CREEP CURVES 
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Figure 39. Creep Curve at 300-310°C for a Stress of 11.9 MPa: 


€J] = 2.10 x 10-§ sec-l & e? = 4.30 x 10-® sec-1 
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Figure 40. Creep Curve at 400-4109C for a Stress of 3.03 MPa: 


é1 = 3.98 x 10-7 secl & €? = 7.31 x 10-7 sec-1 
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Figure 41. Creep Curve at 400-410°C for a Stress of 3.03 MPa: 


EJ = 118 x 10-6 sec-l & €9 = 2.22 x 10-© sec-1 
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Figure 42. Creep Curve at 450-460°C for a Stress of 2.46 MPa: 


£1 = 5.15 x 10-6 secl & £3 = 8.69 x 10°© sec-l 
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Figure 43. Creep Curve at 470-480°C for a Stress of 2.03 MPa: 


£4 = 1.75 x 10-6 secl & £2 = 2.52 x 10-8 sec-l 


qs 


125808 


160000 


! 
758600 
Time, seconds 


L 
9HH00 


pe oe 
25060 


eo) m T @ aN) @ 
{) Py fay _ _ 


48 
.de 


ds, 
© 


a4 


UIRIIS INL 


Figure 44. Creep Curve at 500-510°C for a Stress of 1.64 MPa: 


€1 = 1.51 x 10°® sec! & £3 =1.99 x 10°© sec-1 
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APPENDIX D. CREEP RATE CURVES 
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Figure 45. Creep Rate Curve at 300°C for a Stress of 21.2 MPa: 
€min = 6.10 x 10-5 sec-1 
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Figure 46. Creep Rate Curve at 300°C for a Stress of 19.0 MPa: 


Emin = 3.32 x 10-5 sec: 
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Figure 47. Creep Rate Curve at 300°C for a Stress of 13.0 MPa: 


Emin = 3.76 x 10-6 sec- 1 
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Figure 48. Creep Rate Curve at 350°C for a Stress of 21.2 MPa: 
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Figure 49. Creep Rate Curve at 350°C for a Stress of 12.9 MPa 
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Figure 50. Creep Rate Curve at 350°C for a Stress of 7.00 MPa: 
Emin = 1.94 x 10-6 sec-1 
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Figure 51. Creep Rate Curve at 400°C for a Stress of 7.10 MPa: 
Emin = 9.66 x 10-> sec-1 
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Figure 52. Creep Rate Curve at 400°C for a Stress of 5.27 MPa: 
Emin = 1.73 x 10-> sec: 1 
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Figure 53. Creep Rate Curve at 450°C for a Stress of 2.35 MPa: 


Emin = 4.37 x 10-5 sec: 1 


8 6 





5° 


——- 


NIZNI‘SNIVALS JBNYL 


oan lea Si G° b- on 
| SS aed Vp A ao ea 
Ne 
~ 


elles 


\ 


~ 


= 


7 
er 


\ 


_- 


0 


1OS06 - 


Bbae sud 


See ci). 


eos lala Ge) ~ 


tes 3 IIe 


é€2S' 200 © 


A248 200) 


32b28BO0 ° 


ESS8B8H0 © 


1S660° 


5 susie Ne Srsuls 


+ eons 
_ j ~ 
b — 


Creep Rate Curve at 500°C for a Stress of 5.48 MPa: 


Figure 54. 
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Creep Rate Curve at 500°C for a Stress of 3.02 MPa 


Figure 55. 
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Creep Rate Curve at 5009C for a Stress of 2.25 MPa 


Figure 56. 


Emin = 6.36 x 10-5 sec-1 
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Figure 57. Creep Rate Curve at 500°C for a Stress of 1.84 MPa: 


~min = 1.17 x 10-5 sec-4 
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Figure 58. Creep Rate Curve at 500°C for a Stress of 1.63 MPa: 


Emin = 6.52 x 10-® sec-1 
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APPENDIX E. TEMP. CYCLING CREEP RATE CURVES 
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Figure 59. Creep Rate Curve at 300-310°C for a Stress of 11.9 MPa: 


€1 = 2.46 x 10-6 sec-l & £2 = 4.92 x 10-® sec-l 
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Figure 60. Creep Rate Curve at 400-410°C for a Stress of 3.03 MPa: 


é1 = 4.02 x 10-7 secl & &2 = 7.90 x 10-7 sec-l 
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Figure 61. Creep Rate Curve at 400-410°C for a Stress of 3.03 MPa: 


€1 = 1.20 x 10-6 sec-l & €? = 2.21 x 10-® sec-1 
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Figure 62. Creep Rate Curve at 450-460°C for a Stress of 2.46 MPa: 


1 = 8.73 x 10-6 secl & £2 = 5.19 x 10°® sec-l 
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Figure 63. Creep Rate Curve at 470-480°C for a Stress of 2.03 MPa: 


£1 = 2.13 x 10-6 sec-l & &3 = 2.52 x 10-6 sec-1 
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Figure 64. Creep Rate Curve at 500-510°C for a Stress of 1.64 MPa: 


€1 = 1.99 x 10-6 sec-l & £2 = 2.77 x 10°© sec" 1 
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Figure 65. Creep Data Table (Continued) 


28 


oe 
oe 
+8. 
on 
+9. 
rg 
(SS S527 
a SZ eee 
ee 
2O1Se0S 
~035E+03 
.055E+05 
.O7S5E+05 
(ajslsiec S 
156403 
4 | Ses) 
»ISS5E+05 
Sl ¢sereS 
~ISSes04 
Se oeeroS 
235E+05 
poo 5e7 02 
pe seca, S 
ec. 
, 2 Ses 
| SSE ce NE 
-OoSe+0a 
eee) e 
wo oSe +o 
BD) oy aya 1, 
2 GS Sh) 6. 
,495E+06 
sy ma 9,03 
fs ieee 0) S 
PSlsetuS 
SS SS eee 
7555-700 
oi? sea 
pe S5e70s 
Tose 
HooSeEr US 
~5S55E+05 
~675E+03 
fo 252200 


tS 
age 


al 
=F | 
+ | 
+ | 
+] 
+ | 
+] 
+ | 
+ 
+ | 
SP 
+ | 
aa 
al 
+ | 
ae | 
+ | 


| 
il 
+] 
2 
+ | 
af 
+] 
aE | 
=| 
tl 
+ | 
fal 
ae 
| 
=| 
te 
+] 


Sore tie 
SS2e7072 
PooeOe 
9526202 
LSZe+O2 
gace te 


952E+@2 


“Th 


TLENAME 
INTERVAL 
i aaa | 
ens 29 

| as ais 
Boe ok 
Sea ese 
1 are 
9 at Ae oe 
eae 
eine ee 
Slane 
D2 = sie 
bOe =: = 12 
lia eee, We 
ee ae oy 
oe eg 
ee si Se 
aie ane he 
[eee ie 
iyee= poe 
Poca oe 
dome tot tome 
he 
a bon — om ome 
bce) tam dow ae 
Cjea eae 
Poe e eae 
uae eee 
Vie etre 
— how rose {fare 
Reames 
20 aes 2 
pee SU 
DOES soe 
Sy PS ya © 
elegy oe ae 
Goa wee 
Oe ea 
S52> sob 
502 sare 
Se: eee © 
Sve S sie 
Soe ee 
A Se ie 
-_ kaw cme 
Ae Se 


1S Tesi222 
AVG STRAIN 


+5. 1246-02 +4, 
iO ele) & $4. 
+o. Sete Oe apere 
a a et) | +3 
lee ee Oe +2 
oP le RS 1%) || +2 
+] .S544E-0 | +? 


iaoece Oil ae 


+1.818E-@1 +2 

+] .954E-Q1 on 
+2.Q091E-O1 +2 

tes,cZ1E-Ol +2 
eee Oi stese (8!) te. 
+2. 494E-} =e 

sf aie ee) oa 

+2.7435E-@1 we 
Ho, 862 e-Us 72 

7785 Sie S15! | +2 
ae Yo oe—O | +72 
+3.218E-0! oe 
me, COSE- Ul ae 

me 2522-0 ve 
a. o7!e-0) oe 
ao. (O01 = —vI a 
+5.838E-01 oa 

Too oe va) +e 
+4 .4317E-@] ae 
Pn tS ie +2 
+4,458E-d1 +3 
+4 .605E-01 #3 
mo, (ooe=O1 a 
#4 .929E-01 +3 
<2 SOUS Stee 1 =o 
+5 O76E-01 +3 
+5 .480E- 1 +4 
eae) seas. yl 
Poeeee—or +4 
+6.178E-@1 “5 
Soo seo +6 
ene 0) Seal 8) +8 
toe (S5e- U4 1 

+{,ea7e+O0 +] 


Figure 66. Creep Rate Data 
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APPENDIX G. COMPUTER PROGRAMS FOR CREEP DATA 


100 READ A; N> Xl, Li 

110 FOR T= 1 TON 

120 READ X> Y 

150 S$ = Y/A 

160 C = (10*L1)/(X1) 

150 E = (X*C)/5 

We0 S] = S¥(1+*E) 

More) = LOG(1+E) 

180 PRINT TAB(O):X :TABCO8):Y sTAB(16):S s;TABC32);E + TAB(43)3S51;TAB(57);E1 
ao NEXT I 


2-00 DATA .01642 » 17? » 314.68 veeial 
210 DATA 0 ’ 7 

220 DATA 5 , 74 
220 DATA 10 ’ > 
240 DATA 1S , ere 
=50 DATA a ’ (ea 
255 DATA GG , bio 
=60 DATA 68 9 52? 
270 DATA a ’ 5a 
<80 DATA 116 , 4.8 
290 DATA 140 a Gens 
300 DATA 164 ’ Se, 
>10 DATA 188 9 SS) 
S20 DATA 212 ’ oS 
3s0 DATA 236 ’ es 2 
3460 DATA 260 ’ 2.425 
250 DATA 284 ’ 1.6 
2-60 DATA 308 ’ 0 


Figure 67. Computer Program to Reduce Stress-Strain Data From Load- 
Time Data 
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1 Program fer running two creep macnines 

' Weitten 10-06-58 Tom Kellocg 

‘ Revised 19-06-39 LT EARL F. GOODSON, 3R. 

' Stored as OT_CREPT 

OUTPUT Fog: ot 

OIM On_off(2) ,Unrt$(2)(10) 

DIM Strain_!(Sd@0) Strain_2(S300) ,Tyme_1(5803) ,Tyme_2(5000) 
CIM) Tloot2) fet 2) Tent 2) Rdg te 

Ne_pts=S0a0 ! 

SCLEAR 

' Variaple definitions: 

t On off(l) ... stave of unvteied=ort| l=on 
{ Umit$S ... Label for softkey 

b. Steain_1(), Strain_2() 2. Readings from cunt tseieeee 
§  Tyme_10), Tyme_2() ... Time of readings 

i  T8() <4. Start Crme fromesvscen 

» Te) ... Elaosed time 

yD TetG) 2. Glock wine 

| Ragt) ... Counter for readings 

PRINT X_t$,X_a$ 

GOTO Main_menu 


Set_up: \ 
Rag(1)=#0 
Rdgil)=d 
GCLEAR 
GINIT 
INPUT “Ssecify max time (seconds) for test I° ,Max_time_} 
Lvot_cal_l=-.l!imenes per voit 
iNPUT “Soec:i fv LVOT 1 eGalibration (default 21 i1m7¥) ve ecole 
Gage_!*.5 
INPUT “Soecify 3! spec. gage length, inmcnes.(Detauit=.5)* Gags_! 
INPUT “Soecity max time (seconcs) for test 2° ,Max_time_c 
Lvdt_calces=.1- Minchessper volt 
INPUT “Soeciafy LYVOT 2 calibration (default .1 1tm/V)° .Lvet_cai_- 
Gage_-?.5 


INPUT “Specify 22 spec. gage length, incnes.(Default=.5:° Gage_- 
Max _times¥ 
IF Max_time_!>Max_time AND Max_time_1>Max_time_= THEN 
“axe ime etaxs fame 
ECSe 
Max_timesMax_time_2 
ENO 
Min_strain?0 
INPUT “Soecify min % strain desires (Default=3)" Min_strain 
INPUT “Specify max % strain cesir2c” Max_strair 
P_strain=Max_ strain-Min_ strain 
BREPHTICS ON 
VIEWPORT 2,108.18 ,100 
WINDOW -Max_time*. 2 Max_time Min_steain-.1eR_ strain ,Max_straine.} *re_st~ain 
CLIP O,Max_time ,Min_strain Max_strain 
AXES Max_times1Q@,R_strain/i0,@Min_strain 
sLIP OPe 
LORS 5 
CSitews 
TF Max_ times #1200 TMEN Steo_time=!@ 
IF Max_timer 1000 THEN Steo_timess 
FOR '=0 TO Max_tive STEP Max_timesSteo_time 
MOVE [Min strain=.J2¢t stream 
LABEL VEING “Kea 
NEXT I 
MOVE Max_times2 .Min_strain-.leR_strain 
LASEL USING “K"s"Time, seconcs” 
tORG 28 


Figure 68. Computer Program to Acquire Creep Data and Plot Creep 


Curves 


102 


seS «60 FGR [=Min_strainm TO Max ustrain STEP R_strains10 
=20 MOVE -.01°Manx_time,! 

Ba> LABEL USING “K";1 

342 NEXT 7 

mas MOVE -.29¢mac_ time R_strain/c+Min_strain 

350 LORG 5 

SSS 0 s«OESS 

360 LOIR 92 

=65 TF Strain_tyoe#2 THEN LABEL USING “K"i°% Strain” 
ot IF Strain _syees! THEN LABEL USING “*K":"% True Strain’ 
375 LOIR Q 

3380 =©LORS 5 

385 PRINTER [IS 1 

390 FOR I=t TO 2 


395 On_offilied 
420 UnitS(I )e°S°$VALS(I)8°is OFF” 
495 T_ecl al. E-99 


41 NEXT I 
415 Tyme_int_te(Max_time_1/4999) '!Sets up time 
420 Tyme_int_la(Max_time_2/4999) lintervals 
425 Main menu: ! 

4350 GOTO Keys_setup 

435 Main_menu_!:  ! 

442 GOSUB Time_interval 

445 Main _menu_idle: GOTO Main _menu_]! 

550 Keys_setup:! 

ass OFF KEY 
462 ON KEY 
465 ON KEY 
472 ON KEY 
475 ON FEY 


ERAGE UnitS( 1) GOTO Unit_|_on_orf 

LASEL “Print 1° GOTO Print_! 

Ene “Plot GOTO Ois plots} 
PPErocLwestovnec!  GO10 Sto rec. } 

£32 ON KEY 4 LABEL “New Test" GOTO Set_up 

465 ON KEY 5 LABEL UnitS(2) GOTO Unit_2_on_of f 

432 ON KEY & LABEL “Print 2° GOTO Print_2 
7 
g 
= 


ra — &Y 


ags ON KEY LABEL “Plot2" GOTO O:s_plot_2 
520 ON KEY LABEL “Sto/Rec2” GOTO Sto_rec_2 
525 ON KEY LASEL “QUIT” GOTO Quitter 


S12 Key _setup_': | 
Sis SCTO Mai7_seru_! 


@ Unit_t_on_aff: Select unit tft for cnange 
T= 
GOTO Units_on_off 
Unit_c_onm_off: ‘Select unit < for change 
ia2 


Units_onm_offs'turn unst(l) on/off 
IF On_of f(T t=3 THEN 
On_off(iv#! 
T2901 j=TIMEDATE 
' NOTE: 1@ volts = 1 inch movement 
IF [=1 TREN 
P&INT “Ser LVOT unit one to @ and press return’ 
Beee eae 7a 
INPUT Which 
OUTPUT 793; °VRSAII" 
T_OCI )=TIMEOATE 
ENTER 7891ivdil 
Ege 
FRINT “Set LYVOT umit two te 0 and press return” 
| | 
INPUT “whicns 


OUTPUT 739; “VRSAT2Z° 
T OC I@TIMEDATE 


—-— ©8810 Wi @ a ~1- IM Uf & & If tr rars 


—-SAMa nouw- OMOauUaGauWwaWwawnMoamamanmsad wl 
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Figure 68. Computer Program to Acquire Creep Data and Plot Creep 
Curves (Continued) 
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87S 
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88S 
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38gs 
2028 
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3123 
315 
a0 
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945 
360 
ss5 
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cee Tt oe 

n> 2 
oO 
tet oe DD 
camel} | 


itl 
mle 
= 
3 


ed 
Ynits(l)= s°SVALS( 1 8°1s OFF” 

ENO IF 
GUTO Kevs_setup 

Pesnt_l: 'rrint data from unit | 
ial. 
GUTO Prirt_cata 

PFint_<: ‘Print data fese unit 2 
[=2 


Print data: ‘nardeopy of data points 

PRINTER {S$ 706 

PRINT 

PRINT 

PRINT “Unst Ss “ftp > ee tT MEOATE 

PRINT ~ 3 Strain. x Time, minutes g Strain, x Ti 
minutes” 


FOR J=! TO Ne_ots-1 STEP 2 
PRINT USING FetlitdsStraincl Si Tymetl J sdel sStraint! J+l deTymet 1 J+) ) 
NEXT J 


5 Fatl: IMAGE 2050 .5%,0.000ESZzZ SX 0 OG8ES7 25 


GOTO Keys_setua 
Oiseotet.2 
T= 
Oiscplotcs: "| 
GOSUB wrienm_pletr 
GOSU8 Plot_on 
COTO Main_-enu 
Orscetotwe:, = 
pe 
GOTO Ovs_pict 3 
Whien_plosr: | 
FOR Gad 70 4 
ON KEY @ LABEL “CRT~ GOTO Plotre_crt 
ON KEY O-s EMSEL “Plotter” GUTO Flotelolote 
NEXT 9 
Wh_plote_soin: GOTO Wh_slotr_soin 
Plesesecre: 
TF .@) TREN Ploetr_'S= CRT" 
Ir 1.22 THEN Plotr_c3= “CRT” 
PETURN 
Plstr olor. =! 
TE {st TREN Plotr_1s=<""li6etter= 
Ir i8#2 ime Slotr_23= Plotter” 
PETURN 
al oteon. ( 
Which_strain: ! 
INPUT “l*Treue strain or l#engineering strain?” ,Strain_type 
IF Strain_types! OR Strain_typer2 THEN Whicen_strain 
Min_strainsd 
INPUT “Scec:fy minimum strain cesired (Oefrault=0)~ .Min_strain 
INPUT "“Scecify maximum strain cesired” ,Max_strain 
Min_tiimesd 
INPUT “Soecify minimum time cesired (Oefaul{=0)"° Min_time 
INPUT °Spesify maximum time gesired” ,Max_‘i32 
PRINT “Strain axisi° sMin_strains =" yMax_strain 
PRINT “Time axis: °sMin_times;°-° sMax_time 
PRINT “Ts this OK?° 
§0SU8 Yes_r0 
IF Answers="N° THEN Plot_on 
GCLEAR 
GRAPHICS ON 
BASIIR Wrhiern alate 


Figure 68. Computer Program to Acquire Creep Data and Plot Creep 


Curves (Continued) 


104 


970 IF \Plotr_'3="CRT” ANO i=!) OR (Plotr_2$='CRT” ANO f*2) THEN 
975 RLEMA OFF 

920 PLOTTER 2S 3," INTERNAL“ 

S55 ELSE 

299 PLOTTER 1S 705, “H°GL” 

$85 ENO IF 


1000 iF ¢Platr_1$#"CRT° ANO T2t) OR (FPlotr_2$="CRT° ANO I=2) THEN 
1865 VIEWPORT 0,125 ,280,90 


1018 ELSE 
1015 VIEVPERI ae. leo,1.,.S5 
1@2 ENO IF 


1025 R_time=Max_time-Min_time 

103@ R_strain=Max_strain-Min_strain 

1@35 WINOOW Min_time-.1eR_time ,Max_time ,Min_straine.leR_strain Max _strain 
1040 CLIP Min_tsme ,Max_time ,Min_strain,Max_strain 
1@45 AXES R_time/10,R_strain/10,Min_time ,Min_strain 
1250" CLIP OFF 

WOSSs ESIZE 3 

1060 IF Max_time<=1@@@ THEN Step_time=10 

1@65 IF Max_timer1@@0 THEN Step_timesS 

1072 LORG 5 

1075 FOR J=Min_time TO Max_time STEP R_time/Step_time 


1@80 MOVE J Min_strain-.0/SeR_strain 
1@8S LABEL USING “K"3J 
1990 NEXT J 


1095 MOVE Min_timer.SeR_time Min_strain~.d99*R_strain 
110@ LABEL USING “K";3"Time, seconos* 


1105 LORG 2 

1112 O&5 

1131S FOR Jemin_strain TO Max_strain STEP R_strain/iQ 
pak. MOVE Min_time-.35°R_time,J 

les BRoces sino «sal 

1130. N&«t J 

Migs eEbIR 39 

ltae ae ECRe Ss 


1145 MOVE Min_time-.d9*R_time Min_straint.SeR_strain 
115@ IF Strain_types2 THEN 
SS CABEeewsinG Kos 2 Strain: 


1160 ELSE 

lleS “EASE USING “K°s "true strain” 
1170 ENO IF 

lies EGER? 

1180 Iplor=@ 

1185 OFF KEY 


1190 CLIP Min_:ime ,Max_time ,Min_strain ,Max_strain 
11S FCR J=!| OG 3800 


1238 IF J<>1 THEN Ol_tyme=Tyme_< 

1295 Strayn=d 

218 Tyme_x«=0 

zis IF T=1 TREN 

Ze Strayn#Strain_1i(J) 

lees Tyme_<«#Tyvme_!ii J) 

1220 ec 

les StraynzStrain_2(J) 

1248 Tyme_«aTyme_26 J) 

1245 ENG she 

1259 ON ERRCR GOTO 1260 

izes IF Strain_tynes#!l THEN Strayn=c5G( 1+ Strayn/102)>) 
1250 OFF ERROR - 
1265 IF Tyme_<«Min_time THEN Plot_next 

Ney iF tyme_xsMax_stime THEN 

fers Jes Gud 

1252 SU Come lot aaeot 

ios ENO iF 

zc? iplor=tslot+! 

1295 IF Ioloz=l THEN MOVE Tyme » .Stravn 


Figure 68. Computer Program to Acquire Creep Data and Plot Creep 
Curves (Continued) 


GOS 


1200 IF Iplot<>! ANO (Tyme_<c#0 AND Strayn=d) GR Ol_cyme-Tyme_«< TREN Pls: next 
1350S TF Jo>1 ANO Strayned ANG Tyme_x9@ THEN Plot_nesxt 

1312 GRAW Tyme_< ,Strayn 

SiS, Plotinext: Nest J 


1323 1@ Plotr_($= "CRT OR Plotrics= CAR sie 
13a5 PENUP 

lor ESE 

1355 PEN 0 


1342 END IF 

1345 RETURN 

13S0@ Yes_no: |! 

1355 FOR O=9 TO 4 

1362 ON KEY 0 LABEL “Yes” GOTO Yess 

1365 ON KEY 9+S LABEL “No” GOTO Noo 

1370 NEXT 0 

1375 Yes_no_icle: SOTO Yfes_no_idle 

1380 Yess: |! 

1538S Answers="Y° 

1390 60TO Yes_no_ret 

1325S Noo: 4 

1402) AnswerS="N* 

14S Yes_no_retr: |! 

1410 QFF KEY 

141S RETURN 

142@ Sto_rec_':! 

1425 [st 

145@ GOTO Store_recai! 

1438S Sto-rec_c:! 

14420 [=2 

144S SOTO Stors_-ecall 

14S8 Store _recail:! 

[453 UF MEF 

1460 FOR Q=0 TO 4 

1465 ON KEY 0 LABEL “SavedData” SOTO Store_! 
1470 ON FEY Q+S LABEL “Pec. Data” SOTO Recall_! 
i475 NEXT 

1480 Store_~ecail_!: GOTO Store _recail_! 
1465" Store.ls! Stores cates 

1490 INPUT “File name for data storage” -_names 
1395 S0SU8 Wnich_arse 

1SQ0@ ON ERROR SOTO Store_error 

1505 Stores: ' 

1$19 CREATE SOAT F_nameS&"_X" ,1 ,40020 

1S$15 CREATE SORT =_names&"_Y" ,1 ,49280 

1$2@ CREATE SCAT =_names&~_77 1 3820 

152S Store_c_y: |! 

1S3Q@ OFF =RROR 

1S3S Err_eorel 

1$8Q ON ERROR SOTO Eof_error 

1964S ASSIGN @File_.s TO F_nameS&°_X" 

ISSO IF [st THEN OUTPUT 9File_<sTyme_I(*) 
1SSS IF f=2 THEN QUTPUT 8File_xtTyme_2( °°) 
1650 Err_esof_l: |! 

1$65 aASSISN 2File_« TO ° 

1870 Err_sors2 

1S7S ASSIGN 3File_y TO F_names&"_Y” 

1S3@ fF Let TREN QCUTPUT 3File_y:Strain_I(*) 
1ISsS iF [=2 THEN QUTPUT SF: le_y;:Strain_2(®? 
1590 Eee lsoricy | 

19635 ASSIGN 3File_y TO ° 

1600 Err_eofs3 

1605 ASSIGN 9F:le_= TO =_namesS&~_2° 

1610 GQUTPUT SFile_s:i 7 _OC*?) T_ece) T_1¢¢) Rag) Maxl lament taqs: tneme 
1651S Err_eof_3: | 

1620 ASSIGN 3File_z TO * 

1625 OFF ERROR 
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1620 GOTO Main_renu 

1635S Eof_error: | 

1630 GFF ERRCP 

1645 ON ERROR 30T0 Eof_error 

ISSO LF err leot=! THEN eErr_eor_| 

1655 IF Err_eofe2 THEN Err_eor_2 

1660 IF Err_eot=3 THEN Err_eor_3 

1665 GOTO Marn_menu 

1679 Whicn_disk:! 

167S OFF KEY 

1660 FOR O#8 TO 9 

1685S ON KEY Q LAgEL °" GOTO Which_disk_spin 
1630 NEXT 3 

1689S ON KEY @ LASEL °92901-@° GOTO Orive_2 
le0G ONTKEY = UAREE “825901=1" GOTO Orive_} 
17325 ON KEY 9 LABEL “INTERNAL*® GOTO Orive_1 
1719 Which_disk_spin: GOTO Which_disk_spin 
ty Orive_d: 3 

| Sree MASS STOFAGE IS “:HP82901 , 720" 

172S RETURN 

1730 Orive_i: ! 

1735 MASS STORAGE iS “:HP82991 ,700,1° 

1740 RETURN 

1745 Orive_i: |! 

1753 MASS STORSGE IS “: INTERNAL” 

1755S RETURN 

1750 Store_ercor:! 

1765 IF ERRN|*SS TREN 

1779 PRINT ‘“Supiicate file name. Shall I overwrite?’ 
les 6O05U8 Yes_no 

17&@ OFF ERFOR 

173 IF AnswerS="Y¥" THEN Store_c_y 

t122 ENO IF 

1795 IF ERRN=63 THEN 

1822 PRINT “Sisk is full. Chance disk or mass storage unit.” 
18eS SEEP 270 .,.5 

1912 OFF ERROR 


181 60TO Store_! 

1620 ENO IF 

182 IF ERRN@20 THEN 

1820 PRINT Shut the oloomin’ disk drive. It*s cold out there!” 
1835 OFF EPFOR 

1932 B0TO eS vcren! 


1$¢ =D LF 
es IF SRRN|\2S TREN 


less INITIALIZE “:*EMsuss 
1662 OFF EFROR 
ies 6010 Store_? 


1873 ENO iF 

1875 IF ERRN#**¢2 THEN 

1682 PRINT “Mass storage system error. Select another disk drive.* 
1985 OFF ERFOR 

1899 GOTO Store_l 

18$5 ENO IF 

1929 PRINT “Error: “;ERRN 

16¢@S5 GFF =RROR 

1919 GOTO Main_menu 

VE Recailo1: | 

1920 INPUT “File name to be recalled (omit suffixes)” F_names 

1S2S  SSINT “Whien disk arrive?" 
1830 GOSU8 Whicr_aisk 

$35 AooicN SFile_<« TU F_nameSs ~_x 
$46 ON =RRCR SOTO ?S55 

IF [st THEN ENTER OFile_x:Tyme_!(*) 
22 THEN ENTER SFile_«sTyme_<(¢) 
GN 2F:le x TO ° 


7” 
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1680 CFF ERROR 

18sS ON ERROR SOTO 1985 

1970 SSSISN SFile_y TO F_names&*_‘¥°* 

19.5 if t=) (han ENTER SFile 7rSteainait <7 

1920 IF Isl TREN ENTER OFile_ys;Strain_2(°) 

1$8S ASSIGN 3F:ile_y TO e 

1990 OFF ES50R 

1998S CN ERROR 30TO 7310 

~-90@ ASSIGN 8File_= TO F_names&°_7° 

ecvOS ENTER SFile_zsT Toe) Tlese) Tile) Rdgl*) Max_time_| Max_time_2 
c0tQ@ ASSISN 2File_s TO » 

2O!S OFF ERROR 

2016 =sctor=l 

e318 INPUT “Specify multiplication factor for data. Def=t* Factor 
we!S «ITF Faczor=! THEN 

O20 5SO0SUB Plot_on 

eOcl ELSE 

A Ra FOR J=1 TO 35202 

as Ra TF T#i THEN Strain_i(J d=Strain_I¢J)°Faector 
2ol4 tf IT*2 THEN Strain_2( J )=Strain_2( J eFactor 
2025 NEAT “J 

ZOc/ GUOSU8 Flot_on 

2028 ENO IF 

20350 Ouritter: |! 


205! G6EEP 2900,.1 

2335 FOR 923 TS 4 

2040 UN Key G LABEL “OUIT” sdTO Ourttere 

294S ON KEY 7+S LAGEL “Continue” GOTO Keys_setuo 


2GSoe NEAT O 


2OSS Juitter_i:ale: GOTO Quitter_idle 
Q69 Qurtter_!: STGP 
Tire_interval: ! 


mn 


SUF MN GMA U BU VN GM OMe MAMA NANA NG MN «a 


© ¢2 


= On_off’* #0 THEN Time_int_l 

vost l= 1IVebare*Tool? 

IF Tle( 128 agit )eTyme_int_! THEN GOSU8 Reaa_! 
hime sintola 

Ir On_otft(l)=@ TREN RETURN 

(ete Tires ea t aokca 


—- O8 Vd 860 OG 


7V0rnN NM B&B PL ob rstd eK — & OY 10 tO @ Ow ~) 


G 
IF Adgi1)>5200 THEN 
Sdgil #5000 
PETURN 
Soha agS 
TF Rosi lcs! THEN 
905U8 Oisplay_!l_on 
ENG IF 
IF T_2(1)>Max_time_l THEN 
On_off¢l '=8 
ON KEY 3 LABEL “81 OONE® GOTO Unit_l_on_off 
ENO IF 


iF Tle(l): *RaglldeTyme_int_2 THEN GOSU8 Reac_2 
| RETURN 
1 Read_!: 
I Pdgt! )sRagtl +1 
1 
4 


eet 


IP TINMNGPIFIMNTI MPI FIT Pr FI TI FI TIPE TI FI TV FIFI PI FID Fa Pd PD 


] 
1 
Le OUTPUT 709: °VRSAII” 
16 ENTER 7OEsStrain_l(Pdg(l )) 
15 Strain_!' Fog 1)stcdeLvat_cai_le«Strain_l( Rdg!) )-Lvatl )/Gage_! 
13 Tyme_I( Regi 1) eT_ecl) 
I Eoaces 
PRG Soles 2 
2205 PF Straim_type#2 THEN 
ale MOVE Tyme_l(Ragi bh)» Strarn_l(Rog(1)) 
So Sese 
22.8 IN EFROR SOTO 2230 
a MOVE Tyme_1(Rag(!)) ,LOG(Strain_I (Regi l))+1) 
ceo OFF E=ROR 
@zos ENO [TF 
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2240 LRSEL USING “K"3s*1° 
W245) RETURN 

2250 Reac_ 
285 &agtcerdg(c.+l 

2229 «IF Ragi2)25000 TREN 

regi oy Regi 2) £000 

ae RETURN 

o27S ENO ir 

2282 IF Rag(2)=! TREN 

2235 GOSuB Sisalay_c_en 

ecofO ENO IF 

2zSS iF T_e(l)>Max_time_co THEN 

2320 On_off(2.ad 

=s0S ON KEY S LABEL “S2 OONE” GOTO Unit_2_on_off 
-3!10 ENO iF 

235 CUTPUT @AS9; VRSATS- 


La | 


H 


eon ENTER 799;:Strain_2(Rdgi(2)) 

aes Strain_l(Ragl( 2c) *100eLvdt_cal_2e(Strain_2(Rdgl 2) -Lvdt2)/Gage_2 
Zoe Tyme_2(Rag(2))=T_e(2) 

AEA LORG S 

2240 Corea. 

eos5 IF Strain _type=2 THEN 


225u) MOVE Tyme _2(Rog(2)) Strain_2(Rdgi2Z)) 
2355 eLce 

2560 ON =BR0R 6070) 2270 

Eoo5 MOVE Tyme_2(Rdg(2)) LOG(Strain_2(Rdg(2) +1) 
core OFF ERSCR 

2375S ENO IF 

250 LASEL USING “K"3"2" 

-26S RETURN 

aecO acsplay_ | oon: | 

2o°S Mosse) =| 

2-400 EEF 20C2,.1 

2405S RETURN 

2410 Orselay_2_on: | 

Zoe Ulises. =| 

~-429 RETURN 

-425 ENO 
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1@ | PROGRAM TO COMPUTE STRAIN RATES GIVEN TRE OATA DISC FROM 3 TEMPERATURE C 
YCLING Test. 


32 1 IT IS USER FRIENOLY ANO MENU-ORIVEN., 

4Q (WRITTEN 18-19-89 BY LT EARL F. GOOOSON SR. 

Se 'EQITEO 10-21-89 8Y LT EARL F. GOOOSON SR. 

oo DIM Strain_1(S00@) ,Tyme_1( 5008) ,Teue_strain( S000) Str_rate( 1080) A_str( 102 
0) ; 

71 OIM Log_~ste( 2800) 

30 Nr_ants*5088 

3] PRINTER IS | 

92 I=] 


120 PRINT “PROGRAM TO CALC STRAIN RATES GIVEN TRE OATA OISC FROM A TEMPERATURE 
CYCLING TEST. 
118 PRINT * HIT CONTINUE TO BEGIN" 


r11 PAUSE 
115 GOTO Keys_setup 
114 Qasce: | 


11S OFF ERROR 

leg PRINT “PLACE OATA OISC IN THE INTERNAL ORIVE. ~ 
130 INPUT “FILENAME TO BE RECALLEOCOMIT SUFFIAES)° ,F_nameS 
13) ON ERROR GOTO O:sc 

140 MASS STORAGE IS “: INTERNALS ! RECOVERS TIME 
180 | CATA ARRAY 

160 

1728 ASSIGN @File_< TO F_nameS&"_X" 

188 ON ERROR GOTO 202 

19 ENTER @File_aiTyme_l(e) 

290 ASSIGN @File_< TO » 

219 OFF ERROR 

ae ON ERROR GOTO 27 


25 ASSIGN 9File_y TO F_names&"_y¥"! RECOVERS ENG 
242 | STRAIN OATA ARRAY 
al 


on ow ee 


2$8 ENTER 9File_y:Strain_I(e) 
eu ASSIGN 9Fiie_y TO * 

ag) OFF ERRCR 

331 60TO See_all 


360 ! 

3g 1'ASSIGNS TRUE STRAIN VALUES AN ARRAY NUM. 
3893 | 

381 See_all: ! 

385 G=2 


384 PPINT “PLEASE WAIT UNTIL TRIS MESSAGE OISAPPEASRS. THE TRUE STR4SIN ARRAY I 


S SEiInNs riLess 


522 FOR jel TO 4999 STEP 1 | FILLS TRUE STRAIN ARRAY 
gol O=0+) 

422 True_strain(Q)=LOG(1+(Strarn_I(J9/108)) 
401 IF True_strain(Q)*2d TREN 50TO 421 

410 NEXT J 

421 OUTRUT Sek 3 

422 GOTO Keys_setuo 

433 | 

442 ' 

453 (SOFT KEY SET-UP FOR MAIN MENU 

460 | 

479 | 

489 Keys_setua: |! 

481 OUTPUT Si °K°: 7? CLEAR: SCREEN) CoO 


490 OFS KEY 

See ON KEY 9 LABEL “PRN E 7 SOTO Print, | 

510 ON KEY 1 LABEL “PL/PR ER° GOTO Strain_rate_| 
ScQ@ 'ON KEY 2 LABEL “CALC OIF° GOTO OIFr_COMP 

S20 ON KEY 3 ..ARFL “OSURE” GOTO Aet anar 


* 


Figure 69. Computer Program to Reduce Creep Data, Plot Creep Rate 
Curves and Print Data Tables 


110 


S40 ON KEY 3 LABEL “QUIT” GOTO Ourtter 
$41 ON KEY S LASEL “NEWTEST” GOTO Disc 
SSO Key_:cle: GOTD Key_idte 


Sod ! 

579 1 SUBPROCEDURE TO PRINT ALL STRAINS ANDO TIME 
Sée ' ON THE PRINTER 

$92 \ 

600 I 

6190 Print_i: ! 


620 'IPRINT “PRINT_! ENTERED"! PPINTS TRUE STRAINS AND TIMES 

626 Strtl=2 

627 Sto1=4999 

628 Intvl=2 

S31 INPUT “INPUT ROG TO START AT,(OEFAULT = IST RDG)" Strti 

Spe INPUT “RDG TO STOP ON,(DEFAULT = 4999)” Stop 

533 INPUT “INPUT INTERVAL TO CALC TRUE STRAINS ,(DEF#2 RDOGS)* Intvi 
634 PRINTER iS 706 

bia5 PRINT “FILENAME IS “;F_names 


637 PRINT “ ROG ¢ TRUESTRAIN vols Sas ROG 3% TRUESTRAIN 

Cys Se 

639 FOR J=Strt! 10 Stopol STEP Intvie2 

640 PRINT USING Fmt li J:Terue_strarn( J )iTyme_l( J )sJtIintvilsTrue_strain(J+Intvi ) 
iTyme_I(J+Intvl) 

541 ON ERROR SOTO 644 

642 NEXT J 

643 Fmt: MIRAGE, 2050.95 .SO,000ES ZZ ;5%_ 50 .ODDES2Z 7x) 


b44 PRINTE® [S i 

Sa OFF ERRCR 

546 SOTO weys_setuno 

647 

652 ! 

660 'SUBPROCEDUPE TO PRINT AN INTERVAL OF ALL 
67d ISTRAIN RATES AND STRAINS WITH FLOTTING 
o¥-1) | 

630 | 

700 Strain_rate_!: ! 

791 PPINTER IS ° 

7FQ2 Interv2lQ 

704 StCL eZ 

7S St9=1900 

726 Ans_1S= N" 


7TQ7 Prey=) 

7B Anss2"Y" 

799 TreQ 

Tae INPUT “INPUT INTERVAL BETWEEN STRAIN RATES ,(DE==!0 ROSS?" Interv 
Cbs l=interv 

Hells INPUT “INPUT VALUE TO START AT ,(CEFAULT=IST ROG)” Stree 

rae SNPUT “INPUT VALUE TO STOP 4T ,(CEFAULT=!900 ROG)" ,Sto 

Jal INPUT °CO YOU WANT A HARD COPY OF DATA? ,(DEFAULT=ND )” ,Ans_I$ 


Tle TF Ans_!Se"y" THEN 

72 INPUT “HIT ENTER FOR CRT OR 2 FOR EXT PRINTER ,(DEF=CRT)” Prt 
725 END IF 

723 PRINT “ARe YOU SURE YOU WANT TO START AT “*;3Stre3° 
NTERVAL OF “°;interv 


molur al “,otom OVER I 


we TMPUT “INPUT Y/N ,(OEFAULT=YES)* Anss 

on iF AnsB8e"N° THEN 

toe SOTO Stratn_rate_! 

Tso OUTEWines #4 

Lew ELSE 

tes PRINT “PLESSE WAIT FOR “ENU TO APPEAR. STRAIN RATE APRAY IS BEING FILLE 
6 Ry 

736 END IF 

Tae IF Pee=aZ THEN PRINTER [S 726 

738 IF aAns_}Se"y¥° THEN 

ar) PRINT “FILENAME IS “;F_names 

741 ZSQINT © INTERVAL AVG STRAIN STRAIN RATE*! INTERVAL AUG ST 
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Figure 69. 


RAIN STRAIN R° 


742 
750 
onl 
762 


ENO IF 
FOR s=Str? 70 Sts STEP Interv 
Tr=Trel 
Ste_rste( Tr eAgS((( True_strain( JtInteryv )-True_strain()}/(Tyme_}( J+Inter 


vi=Tyme_i(J)))) 


761 
779 
782 
802 
8! 
+Tr 
804 
81@ 
822 
830 
842 
8S2 
Si 
862 
861 
862 
863 
872 
882 
882 
902 
91@ 
320 
Set 
sao 
924 
325 


ILog_rate( Tr )e_GT(ABS( Str_rate(Tr))) 

A_strc( Te d=(True_strain(J+Interv )+True_strain(d))/2 

CN ERROR GOTO §30 

IF Ans_!$= Y" THEN 

PRINT USING Pmtcidi -"sdelsAlstri Tre sStre_eatetTeyisdels--<":Je2el Astrid 
i’woteleavecit+tirs 


ENO IF 
NEAT J 
Pm¢2;: iMAGe (4D0,K ,40,SxX ,S0.Q000ES22Z .SX ,S0.D00E522 ,3x) 
OFF ERROR 
PRINTER IS | 
OFF KEV 
OUTPUT 27% "3 
ON KEY LABEL “PLOT ER E> GOTO UP icteer 


1 
ON KEY 2 LABEL "“NEWTEST" GOTO O:sc 
ON KEY 3 LASEL °MENU*® GOTO Keys_setup 
ON KEY 4 LABEL “SLOPE° GOTO Sloper 
Plot idle: G0TO Plot_irale 
GOTO Keys_setuc 
1 
‘SUS TO PLOT STRAIN RATE VS STRAIN 
elo c er. | 
OFF KEY 
Ans4$="N° 
Ylocee | TELLS PLOT TO USE REG Y-AXIS 
PRINT “THIS SECTION GIVES YOU SEVERAL CHOICES OF PLOTS. YOU MAY NEEO IT 


ERATION TO GET TRE” 


eos 


PRINT “SCALE ANO THE LIMITS RIGHT. OEFAULT IS A SEMI-LOG PLOT. YOU ALS 


O CAN PLOT REGULAR™ 


age 
YM 
Sze 


“a 
wa w= 


940 
950 
SS) 
355 
g$4 
oe 
955 
e520 
25) 
Sec 
S65 


a65 


w 
Mm 


O61 ww uw Ww Ww Wo Ww Ww eh oo 
DO ~) YO A) 1 onan 
&®& Oo ~~ G1W1 ® ta hd = © wo @ -~j 1 


Computer Program to Reduce Creep Data, Plot Creep Rate 


PRINT “AXES. AUTO SCALING REQUIRES SOME PATIENCE SINCE IT USES YMAX ANO 


IN, SO TRY AGAIN® 


PRINT 
X13S=2"TRUE STRAIN IN/IN® 
Y1$S=°LOG STRAIN RATE" 
TS=“TEMP CYCLING EXP 
INPUT “®LOT LOG STRAIN RATE WITH RES AXES? (OEF=NO)” ,Ans4s 
IF ansé$="N° THEN 
Yloag=! 
Y1S@"STRAIN RATE ,SEC-1" 
XiS= TRUE STRAIN ,IN/IN* 
INPUT “PLOT SEMI-LOG W/Y AS LOG AXIS? ,( YES*OEF NO#d)° Ylog 
ENO IF 
Ans2>! 
INPUT “INPUT TITLE OF PLOT(COEF=TEMP CYCL EXP)° TS 
INPUT “t FOR CRT OR 2 FOR EXT PLOT ,(OEF®=CRT?° Ans2 
IF Ans2=2 TREN 
TER 16 725, NPSL” 


IF Ans4$=°Y° THEN 

CALL Auselilag ostet!) Leg _ratet(Tr) 0 Minor Mx ir (ico? 
USE 

CALL Ausel(Str_estetl) Str _ratetir) 0 Mn le eoxen ices 
ENG iF 

CALL Ausel(A_strtl) A_streO te) (0 Mace xe cee 

TE anesdge"yY° THEN 
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359 


CALs PlotiMin_e Mx_e tinue Mer ,Te_e,Te_e .0,¥!lag X15, VIS A_str(*) Log ra 


tee) 1.18) 


330 


32 


= -~ 
ELS= 
= — 


CALL Plot(Mn_e ,Mx_e.Mn_ir 4x er ,Te_e ,Je_r ,2,Ylog,X1S,Y1S A_str(*) Str_ra 


te(¢) Te, 1S) 


go3 

33s 

996 

937 

998 

geg 

1009 
1201 
1002 
1012 
1022 
1030 
1042 
1052 
1051 
1052 
10535 
1054 
1055 
1056 
1057 
1058 
1053 
106! 
1072 
1Q&Q 
1080 
1100 
1110 
11cQ 
1130 
1140 
1150 
1162 
1172 
1162 
1192 
1220 
1212 
iZc8 


Del 


gee 
am = 


bese 
249 
1241 
1252 
1280 
1302 
1310 
Veg 
=|) 
1238 
1342 
1352 
1260 
1370 
155d 
1290 
1400 
14128 


1423 


ENO iF 
PRINTER IS 1 
PRINT “MIT CONTINUE TO FESUME THE PROGRAM” 
PeUSE 
GINIT 
SCU=—R 
GRAFWICS GFF 
ALFE¥A ON 
GOTO K#ys_setuo 
1 SU8 TO PPINT DESIGNATED STRAIN RATES 
! 


Act_ener: t 


PRINT “ACT_ENER ENTEREO” 

Ans7s2"Y* 

INPUT “INPUT TEMP 17 T1 

INPUT “INPUT STRAIN RATE 1° 51 

INPUT “INPUT TEMP 2° .Té 

INPUT “INPUT STRAIN RATE 2° $2 

Osupe=(2.503¢1 SB e(LGTCS1 DeLGTCS2) 0/0 01/0T14273 ) det 1/6 724273))) 
PRINT “ACTIVATION ENERGY = “;Qsubc 

INPUT "30 YOU WANT TO GO AGAIN(OEF=YES)" Ans7S 
TF Ans73=°Y° THEN GOTO Act_ener 

GOTO «~eys_setuo 

I 

| S$U8 TO PRINT DESIGNATES STRAINS 


Slooer: ! 


PRINT “SLOPER ENTEREO” 
GOTO Keys_setup 
| 


| SUS TO CUIT STRAIN RATE PROGRAM 


Oultter: ! 


BEEP 2900 ,.1 
FOR 3=2 TO 4 

Ser eooeaAsel. “OULT~ GOTO Quitter_| 

ON KEY O+5 LABEL “CONTINUE” GOTO Keys_setup 
NEXT Q 


Quitter_idle: GOTO Qu:rtter_idle 
Jurtter ': STOP 


ENO 
! 
SUS Auscl( Min Max Offset Minm Maxm Tick) ' $825 12/02/81 
PPINT “AUTG-SCALE ENTERED" 
INTEGER Power .N Oir 
Range2735(Max-Min) 
Powere®iNT(LGT( Range) ) 
Norm=#nange/!0*Power 
NeldecNormses it5e( (Norm<S) AND (Norm 22) )+2¢¢ (Norm?) ANDO (Norm>] ))}+(Norm< 


inter =OROUNO(N*13*(Power-?) 1) 

Oir@S6NiMin-Max) 

XecMine OF fset)/10°*Power - . 

SOSUS Rout 

Minm="oure!O*PowertOffset 

Oiressn( Max-4ia, 

Vet Max-Jffiser)/18*Pauer 

S0SUB Rout 

Maxmeaouteld*PowersOf fset 

TreradSOunOe ASS’ Maxm—“Miee I mseret INTCL STI OOS! (MavmeMi nm \/ipteret )ist yy 4 
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14329 GOTO exit 

1440 Rout: TestsASS(X )-INTCABS(X)) | ROUNO K TO MULTIPLE OF N IN OIRESTICN Oir. 
1452 OrgitzINTi tOerTest ) 

1460 OelsasSigite(N=st@)+Oigit MOO Ne(N<d1Q) 

1479) Rouna=t{ SONCX )*Oir 3) eN=SGNCX DeGireDeltar/lOer(Tast—Iigit/12 OR Oelta)<72 
1380 IF ABS(SGN(CX)*¢0192°/10t0i1reRounG)>1 THEN Rouna#!~-0191t/12 

1490 Rout#SGN(X ded INTC ABS(X) 401912710 )+OareRound 

1S9@ RETURN 

1SS0 Exit: SUSEND 


1S6O ' 

S20 i 

=27Q SUB Plat(Xmin,Amax ,Ymin ,Ymax ,Xtic ,Ytic Xlog, Vlog AS. YS 41°) Y¥Ooe) N Titles 
e290 ' 93825 Q@1/26/82 
--90 IPRINT “PLOTTER ENTEREOQ” 
22.01 y 

22900 INTEGER Pointer Minor ,Majtic ,Mintic ,Penc 

231@ OFS 

2320 NI=INTCABS(N)) 

2520 Xmajyor#INT(ABS(Xtsc)) | YARIASLE SETUP 


2542 YmajorsINT(ABS(Ytic)) 

2SS0 Cxmax=tmax 

2560 IF Xlog THEN Camax#uGT(Xmax ) 
2572 Cxminecmin 

2SdQ@ IF Xlog TREN Camin#LGT(Xmin?) 
~S932 Cymax*¥max 

2591 Ylet|.E-8+Ymax ? 

~680@ IF Ylog TREN Cymax=s_GT(Yl) 
2-610) Cymin#’min 


eal Yee los se7ein) 
2570 IF Ylog TREN CyminsiGTiY2) 
~650 IF Cxumin<Camax THEN GOTO X_ok [ MAKE SURE Max > Min 


2540 Dummy2camin 
2eS$SO Cxminsct-max 
2650 Cxmax*s0ummy 
2679 X_ok: IF Cymin<Cymax THEN GOTO Y_ok 
2580 OummveCymin 
“S30 Cyminscymax 
2700 Cymax*Oumey 


e710 Yok:Chezgnt2!5/4.54 | CHARACTES SIZE ANO TICK LENGTH IN GOU 
ae a Cwidth=.5¢Cheignt 

fie Tiack=Cwidth 

274@ IF RATIO>#1 THEN ICALC VERT. ANO HORIZ. LIMITS IN GOU 
2752 Vert=100 

2760 Horizs"ATIOe1 02 

aivo. ELSE 

eae Moeric#l 0 

2°59 VertsiQQ/RATIO 

<-20@0 ENO <F 

2310 Gouxsdoriz-lOeCwrath-Cheignt-Tick 1 AXTS LENGTH IN GOU 
2628 GduysVert-3.seCwigth-2.S*Cherignt-Tick 

2830 1 CONVERT AARO LIMITS @,Horiz TO OATA UNITS Xlower, Xupper, etc. 


28380 XlowersCamin-(9.5¢CurdtheCheigntrlTick )/Gduxel Cxmax-Cxmin) 

2850 Xuoserstxmaxer.SeCurotn/Gduxe(Cxmax-Cxmin?) 

2860 Ylower=tymine-(Cheignt+93.seCwidthetick )/Gauye(C,max-Cymin ) 

2370 YuosersCymaxtl .SeChsignt/Cauve(Cymax-Cymin) 

e630 Aticlen=Ticr/Gauye(Cymax-Cymin) 

2390 YticlensTicne/Gauxe(Cxmax-Camin) 

2$20 VIEWPORT O,xoriz 2 ,Vert | SETUP PLOTTING P&RAMETERS. 
2910 PIVOT 3 : ; 
2920 MOVE 0,2 

wos WINQOW Klower ,Xugner ,Ylower ,Yuoser 

22640 CSICE Cheight ,CaidtnsCheign: 

~SS9 CLIP Camin ,Camax ,Cymin ,C ymax 

oS60 iF <mayor=@ THEN GOTO Y_axas 

237Q Minor=iNT(18*e( ABS(Xtic )-Xmajor?)) 'PLOT X AXIS 


PGRA Trek anacesr amax- xmMin 


Figure 69. Computer Program to Reduce Creep Data, Plot Creep Rate 
Curves and Print Data Tables (Continued) 
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2990 iF kmajorz! THEN Tickspace=(Cxmax-Camin?/(xmajyor—} ) 
3000 MOVE Camin,Cymin 

SQ12 ORAW Camax ,Cymin 

5Q@29 LORG 8 


3030 LOIR Q 

3040 FOR Majytic#t TO Xmajor 

5052 Majypos#CamineTickspace*(Majtic-t ) 

3062 MOVE Majpos ,Cymin-<ticlen 

2072 Labi=Majpos 

3082 IF Xlog THEN Labl#=!IQ@"Majpos . 
3090 IF ((ABS{ Lab! )> et. E+6) GR (ABS(Lab] <1.E-4)) ANO (Lab1<>0) THEN GOTO Fl 
oata 

31QO IF Labl<>?@ THEN 

311 Temp®-INT(LGT(ABS(Lab!l )))-1 

3128 IF Temo<e#d THEN Temo=d 

3130 Labl*QROUNO(Lao! ,?7-Temp ) 

3142 ENO IF 

3150 CLIP OFF 

3160 LASEL USING °2,K°;Labl 

3172 CLIP ON 

3180 PENUP 

3192 GOTO Xticmark 

3200 Floatx:CLIP OFF 

3210 Labl=QROUNO(Lab1] ,2) 

3222 LABEL USING "2 ,K°sLabdl 

3250 CLIP ON 

3240 PENUP 

SZEQ Xticmark:MOVE Majpos ,Cymin 

35260 IF Xtice-@ THEN IOQRAW @ Xticlen 

5270 IF (Minor=@) OR (Majtic#«majyor) THEN GOTO No_vminor 

3280 MimainceTicksoace/(Minor-t ) ! PLOT MINOR TICKS 
3290 IF Klog TREN Mininc#(1Q@*(MajpostTickspace s-12°Majpos )/(Minoret ) 
3300 FOR Mintic=t TO Minor 

3310 Minpos=Majpos+Minine *Mintic 

3320 IF Xleq THEN Minoos#LGT‘ 1O0*MajpostMininceMintic) 

3330 MOVE Minoos ,Cymin 

3340 IORAW 2, Xticlen/2 

3352 NEXT Minzic 

3362 No_xminor: NEXT Majtic 

3570 LOTR @ 1 X AXIS LABEL 


358@ LOFG 4 

3390 MOVE (Xlower+Xupoer )/2 ,Ylower 

3800 CLiP OFF 

3410 LABEL USING “& K°EXS 

3420 CLIP GN 

3420 PENUP 

J440 Y_aais: IF Ymajor#0 THEN GOTO Dataolort 

3452 Minor#INT(1Q@*( ABS(Ytic)-Ymajor }) [| PLOT Y AXIS 
3460 TicksoacesCymax-Cymin 

3470 IF Ymajor>! THEN Tickspaces(Cymax-Cymin)/(Ymajor-} ) 
348Q@ MOVE Cxmin ,Cymin 

349Q@ DRAW Cxmin,Cymax 

350@ LORG B 


3S$10@ LOIR @ 

3S22 FOR Majytic#! TO Ymajor 

coc MajposeCymineTickspace*(Majtic-1 ) 
3542 MOVE Cxmin-Yticlen Majpos 

3552 Labl=Majpos 

3582 IF Ylog THEN Labl=t@*Majoos 

3570 IF ((AQS(LablL)>#t.Ec*6) GR (ABS( Lab] )<1.E-4)) ANO (Lapl<>8) THEN GOTO Fl 
aaty 

3530 IF Labi<>@ THEN 

2550 Temoe-INTILGOT( ABS (Cabl 7) 
3680 IF Temo<#@ THEN Temoed 

7612 Laol=OROUND( Lab] ,7~Tema >) 

3870 ENO IF 


Figure 69. Computer Program to Reduce Creep Data, Plot Creep Rate 
Curves and Print Data Tables (Continued) 
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3629 CLIP UF. 


3549 LASEL USING “2 K"¢Labl 

ceoe CLIP JN 

3650 PENUP 

2672 5S0TO Ytremark 

3652 Floaty: CLIP OFF 

3632 Labl=OROUND(Lab1 ,2) 

3700 LABEL USING °3,K°;Lanl 

3710 CLIP ON 

3722 PENUP 

oepe Yticmark ; MOVE Caxmin,Majpos 

3730 IF Ytico@ THEN IORAW Yticlen,@ 

3752 IF (Minor=@) OR (Majytic=ymajor) THEN GOTO No_yminor 

3769 MininceTickspace/(Minorel ) ' PLOT MINOR TICKS 
3770 IF Ylog THEN Minince(10*(Majpost+Tickspace )-10*Majpos )/(Minorel ) 
3780 FOR Mintic#t TO Minor 

3793 Minoos*®Majpos+MininceMintic 

3802 IF Ylog THEN Minpos*LGT( 10*Majpost+MininceMintic) 

3612 MOVE Camin ,Minpos 

3820 ICRAW Yticlen/2 ,2d 

3838 NEXT Mintie 

3842 No_yminor: NEXT Majtic 

2850 LOIR 90 | Y AXTS LABEL 


S86Q LORG 5 

2879 MOVE Xlower ,(Ylower+Yuooer )/2 
Soa) CLIPGQEr 

392 LABEL USING “3 K°:YS$ 

$00 CLIP ON 
<a 


Q@ PENUP 
3920 Batapilot: LOIR Q 
3930 iF Nied THEN GOTO Titleslot 
2948 LORG 5 ‘PLOT OATA 


3952 Pence#-2 
7962 FOR Fointr=!l TON! 


3372 Ka@U(Sointe) 

2982 IF Xlog THEN Xx*L_GT(X(Pointer)) 
Seee Yyev(Pointe) 

£202 IF Ylog THEN Yy#LGT(Y(Pointr)) 
4012 iF Pence-2 TREN MOVE Xx ,Yy 
4022 [IF Penc=~! THEN DRAW Xx,7y 
4330 IF NXO TREN 

4242 CUTE OFF 

4950 LABEL USING °3,K";"e" 

4262 CLoP ON 

4072 PEYUP 

42282 ENO IF 

4050 Fence-!-i NCO) 

4100 NEXT Pointe 

4110 Titlepiot: LORG 5s PEPLOTe ite 
412 MOVE (Xlower+Aupoer )/c ,Yupper 
wleo. Cll= Ore 


4149 LASEL USING "S,K"sTitles 
4150 CLIP ON 

4152 PENUP 

4258 SVeEEND 


Figure 69. Computer Program to Reduce Creep Data, Plot Creep Rate 
Curves and Print Data Tables (Continued) 
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